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PREFACE 



This manual explains the use of the CONTROL, DATA 6000 series 274 Interactive Graphics 
System, Version 1 and includes conversion information for 274 IGS Version 2. It provides 
graded examples which illustrate the capabilities of the system. Review questions and sample 
coding problems are presented as a tutorial aid. An extensive knowledge of programming is 
not required, but familiarity with the hardware and software used in the system would be 
useful. 

For more information related to the system's software, see the following Control Data 
publications: 



Title 



Publication Number 



6000 Series SCOPE 3.3 Reference Manual 

6000 Series SCOPE 3. 3 Operating Guide 

6000 Series Systems Reference Manual 

6000 Series Interactive Graphics System 
General Information Manual 

6000 Series EXPORT /IMPORT High-Speed 
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Operator's Guide 

6000 Series 274 Interactive Graphics System 
Reference Manual 

1700 Series 1744 Digigraphics Controller 
Reference /Customer Engineering Manual 

General Description of the 274 Display 
Console and the 1744 Controller 

6000 Series SCOPE 3.2 Reference Manual 

6000 Series SCOPE 3.2 Operating Guide 

6000 Series 274 Interactive Graphics System 
Version 1 Reference Manual 

6000 Series 274 Interactive Graphics System 
Version 1 BATCHIO and EXPORT/IMPORT 
Operator's Guide /installation Handbook 
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VII 



INTRODUCTION 



The CONTROL DATA® 6000 series 1700/274 Interactive Graphics System allows a graphics 
console operator to access a large computer for real-time use in a dual graphics /batch proc- 
essing mode while maintaining full machine capability* 

To accomplish this, a separation of functions must be established. Graphics programming 
is done only on the 6000 series computer, while the 1700 series computer software operates 
without programmer intervention. Graphics programs are written in standard FORTRAN. 
They are externally independent of display hardware characteristics. Graphics programs 
run at a dedicated Graphics control point. 

The Interactive Graphics software operates as two separate but communicating groups of 
routines - one in the 6000 series computer (which time-shares central memory), the other 
in the 1700 series computer. 

This user's guide presents five problems of increasing complexity which demonstrate the 
capabilities of the graphics console and provide graded lessons on the use of the system. 
Each IGS call is presented in the context of one of these sample problems. Various appen- 
dices present additional examples of coding, reference and review tables, coding hints, and 
an answer key. 

6000 SERIES COMPUTER SOFTWARE 

The 6000 series computer software consists of the SCOPE operating system (expanded to 
include graphics features), a FORTRAN compiler, the Basic Graphics Package, the sched- 
uler (for time -sharing the graphics programs), and a package for communication between 
graphics programs and the 1700 series computer. 

1700 SERIES COMPUTER SOFTWARE 

The 1700 series computer software consists of an IMPORT program to handle 6000-1700 
series data communications, a Mass Storage Operating System (MSOS) to drive printers, 
readers and punches, a buffer translator which translates 6000 series data into display- 
oriented data and vice versa, and a graphics package which processes interrupts and data 
from the consoles and acts as a driver for the graphics consoles. 
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GRAPHICS HARDWARE 

The graphics system provides an interface for the handling of graphic or alphanumeric infor- 
mation. Entries or modifications are made at the console. These entries are placed into 
the 1700 series computer in digital form and become available for use by the 6000 series 
system. This graphics input is visible on the cathode ray tube and can be used for informa- 
tion processing by an applications program under console operator control. The results of 
such processing are immediately displayed on the screen. The static display of graphic and 
alphanumeric data is provided by buffers so that the consoles are essentially off-line devices. 

GRAPHICS CONSOLE 

The user's input/output and control center is the graphics console. The major portion of 
system graphics capability can be controlled from the console. 

The console cabinet is a desk-size unit which mounts a rectangular housing assembly, off- 
centered to the left, and provides a writing surface to the right. The housing assembly con- 
tains a magnetic shield and a 21 -inch diameter cathode ray tube centered on the front panel 
housing. The display items on the cathode ray tube screen can be easily seen at normal 
light levels. 

The cathode ray tube has a nearly flat display surface to minimize parallax error. The tube 
is equipped with an implosion shield for the protection of the operator, and is coated with a 
two-layer P-7 phosphor. One layer produces blue-violet light with a short persistence to 
facilitate light-pen tracking. The other layer produces yellow-green light and has a longer 
persistence to eliminate flicker. With a continuously refreshed display, the light from both 
phosphor components combines to appear light blue to the human eye. The cathode ray tube 
has 314 square inches of surface available for display. 

Data can be entered on the cathode ray tube via the light-pen and the two optional keyboards. 

CONTROLS 

The controls available to the console operator include the keyboards, light-pen, light regis- 
ters, and light buttons. The light registers and light buttons are defined by the application 
program and formatted for display on the screen by the 1700 Basic Graphics Package 
routines. 

FUNCTION KEYBOARD 

The 16 -key function keyboard informs the application program that an operation is requested 
(Figure 1-1). 
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Figure 1-1. Function Keyboard 

Fourteen keys contain snap-action switches that remain on after an initial press and off after 
being pressed again; the other keys must be held down to give an "on" status. Each key has 
an internal light that shows the operator when it is on. Removable plastic cards may be 
placed over the keys to label the function of each. All keys can be given new functional 
assignments by the application program through the 6000 Basic Graphics Package. 

ALPHANUMERIC KEYBOARD 

The alphanumeric keyboard (Figure 1-2) provides typewriter -like symbolic input to the 
application program. The keyboard layout is similar to that of a conventional teletypewriter. 
Each key enters an 8 -bit ASCII character code in the left-hand portion of a status word that 
is fetched by the 1700 Basic Graphics Package. The characters are collected into line 
images and displayed on the 274 Console screen in the currently defined light register. 

LIGHT-PEN 

The light-pen has two functions: tracking and picking. Tracking may be used to place a 
light source (the tracking cross) at any desired position on the console screen so that a 
graphics display item^may be created there, or to designate that position as an area of 



'A graphics display item is any item displayed on the 274 Console. 
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274 GRAPHICS CONSOLE 



INTRODUCTION 

The first part of this section describes the 274 Graphics Console in terms of addressing the 
screen (grid) coordinates, the working and control surfaces available, and character sizes. 

The rest of the section is devoted to an explanation of the display capability of the graphics 
system /console. A graphics program which displays a winding road traffic sign' is ex- 
plained and the three essential steps used to create this display are discussed in detail. 

DISPLAY GRID 

This system uses a 274 Graphics Console. Its display screen (Figure 2-1) consists of a 
circle divided into addressable grid coordinates on the x-axis (horizontal) and the y-axis 
(vertical) called digigraphic units (dgus). There are approximately 200.. dgus per inch on 
the 21 -inch diameter screen. The screen has absolute center coordinates (0, 0) with the 
x-axis endpoint coordinates at (-2048, 0) and (+2047, 0) and the y-axis endpoint coordinates 
at (0, 2047) and (0, -2048). All points on the screen are addressable in octal notation (400B, 
1400B) or decimal notation (256, 768), but the x-coordinate and the y coordinate must never be 
greater than 2047 or less than -2048. (All subsequent references to coordinate points will 
be in decimal notation. ) 

The grid is actually larger than the screen so that all points on the screen can be addressed. 
Points beyond the edge of the screen can be addressed by a programmer, but are invisible 
to a user directly in front of the screen. If viewed at an angle, such points can be seen 
reflected off the side of the tube. 

SCREEN ORGANIZATION 

When planning a graphics program, the programmer should consider the following: 

• How large will the working surface be 

• Will items be displayed as ignore, single pick, string pick, or button pick items 

• Does the program require a font for input 

• Should the tracking cross be turned on 



'Appendix A includes a different approach to the Winding Road problem. 
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Figure 2-1. Display Grid System 

The organization of the screen is completely up to the programmer. However, certain con- 
ventions may be used for a wide variety of applications. These conventions allow a program- 
mer to make maximum use of the screen area, yet help him avoid addressing grid coordinates 
off the screen. 

WORKING SURFACE 

One convention is to divide the screen into a working surface and a control surface. The 
working surface is reserved for the display of graphics forms and is contained within a frame 
defined by the programmer. The frame may or may not be displayed. 

CONTROL SURFACE 

The control surface is defined as the area outside the frame or frames and is normally 
reserved for light buttons, light registers, and the tracking cross (when it is not in use on 
the working surface). Figure 2-2 shows a sample of one type of screen organization. 
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Figure 2-2. Sample Display Surface Organization 



CHARACTER SIZE 



When alphanumeric information is to be displayed on the screen, an idea of the character 
size can be obtained by considering each character to be a 24 by 24 dgu square (with spacing 
included at the top and right side of this square). For instance, if the user specifies that an 
A will be displayed at coordinates (256, 768), the lower left-hand corner of the 24 by 24 dgu 
square is positioned at (256, 768). 

WINDING ROAD 

A prime feature of the graphics system is its picture and information displaying ability. 
To illustrate how a picture is created, a simple depiction of the lines, descriptive wording, 
and distinctive shape that form the winding road traffic caution warning sign is shown 
in Figure 2-3. The working surface is the entire screen. Items will be displayed as ignore 
items (which means they are insensitive to the light pen). Neither font nor tracking cross 
are used. 
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Figure 2-3. Winding Road 

Standard IGS lines have an approximate width of 5 dgus at 50% beam intensity. Assume that 
arrays are dimensioned and that masks are set.t 

The pick will be ignored if the user picks an item with IDDT = 1 when the light-pen is attached 
to the console. If the user picks several display items on the console with a light-pen, only 
the last one designated as a single pick item with IDDT = 2 will remain on an internal queue. 
This is in contrast to string pick items where each item in a string of light-pen picks is 
queued. Later, IGS calls will retrieve the queued items. 

In the Winding Road example, the number of the console referenced (NCON) is 1. 
FIRST STEP IN CREATION 



POSITIONING THE BEAM 

Position the light beam on a point which will become a corner of the diamond-shaped perim- 
eter of the sign. (The beam could be positioned at any point on the perimeter. ) For this 



'If all items are ignore items with an IDDT = 1, the programmer need not use GIMASK to 
set a mask since IDDT = 1 is a default value. 



2-4 



44629300 Rev. D 



example, positioning is at absolute coordinates (0, 1500). ' The four line segments are drawn, 
one at a time, in a clockwise direction. 

GURSET 

CALL GURSET (0, 1500, 102B, IBUF, NBYTE, MBYTE) 

moves the beam to absolute coordinates (0, 1500). Until there is another GURSET call, all 
coordinates specified will be relative to absolute (0, 1500). 

The third parameter of the call is ICODE and is in the binary form sOOOfbb ' ' where 

s = Disable item's sensitivity to light-pen strike 

= 1 Enable item's sensitivity to light-pen strike 

f = Don't blink item when it is displayed 

= 1 Blink item when it is displayed 

bb = 01 Display item with beam at low intensity 

= 10 Display item with beam at medium intensity 

= 11 Display item with beam at high intensity 

The ICODE of CALL GURSET has the bit pattern 1000010 = 102B. It defines the display items 
as a figure which is sensitive to a light-pen strike, does not blink, and which is displayed at 
medium beam intensity. If ICODE were 106B, the diamond would blink as the bit pattern 
would be 1000110. An item with ICODE = 7 would not be sensitive to a light-pen strike, 
would blink, and would be displayed at high intensity. 

The fourth parameter of GURSET is IBUF. IBUF is a description buffer for the display item. 
The parameter must be dimensioned. Since each byte is 12 bits long, IBUF is usually dimen- 
sioned at 64 (60-bit words). 

• NBYTE is the number of bytes currently in IBUF. It is updated by the call. It 
must be initialized to zero at the beginning of a subroutine or program. 

• If NBYTE is referenced by later graphics routines, it must be spelled correctly. 

• MBYTE is the maximum number of bytes the programmer allows in IBUF. 
MBYTE is specified by the programmer and must be less than 310. Because 
each byte is 12 bits, IBUF is usually dimensioned 64 (60 -bit words). 



'See page 2-12 for information on absolute and relative coordinates. 
''See page 5-12 for an additional option available under SCOPE 3. 3 
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DESCRIBING LINE SEGMENTS 

After the light beam is in position, the line segments which form the perimeter of the traffic 
sign may be drawn. There are several methods of describing line segments. 

METHOD I 

The first one calls GUSEGS. The command format is 

CALL GUSEGS(0, 1500, 1500, 0, 1, 7777B, IBUF,NBYTE, MBYTE) 

This indicates that the first segment has a starting point at (0, 1500) and endpoint at (1500, 0). 
The shortest line segment that can be drawn on the 274 Console is approximately 6 dgus long. 

The fifth parameter is IBEAM. If IBEAM = 0, the segment is not displayed. If IBEAM = 1, 
the segment is displayed according to ISTYLE. If IBEAM = -0, the beam is turned off and 
left off after the last endpoint coordinates are processed. If IBEAM = -1, the beam is turned 
on and left on after the last endpoint coordinates are processed. 

The sixth parameter is ISTYLE, which determines the appearance of the line. 

ISTYLE = 0, -0, or 77776 + The segment is solid 



= 5252B The segment is dashed 

= 6666B The segment is broken 

= 7272B The segment has an ap- 

pearance called center 
line — ._._,_._ 

The following code would complete the description of the diamond. 

CALL GUSEGS (1500, 0, 0, -1500, 1, 7777B, IBUF, NBYTE, MBYTE) 
CALL GUSEGS (0, -1500, -1500, 0, 1, 7777B, IBUF, NBYTE, 
1 MBYTE) 

CALL GUSEGS (-1500, 0, 0, 1500, 1, 7777B, IBUF, NBYTE, MBYTE) 

METHOD II 

A second method of describing the diamond- shaped perimeter of the warning sign is the 
following: 

CALL GURSET(0, 1500, 102B, IBUF, NBYTE, MBYTE) 

CALL GUSEGS(0, 1500, 1500, 0, 1, 7777B, IBUF, NBYTE, MBYTE) 

CALL GUSEG(0, -1500, 1) 

CALL GUSEG(-1500, 0, 1) 

CALL GUSEG(0, 1500, 1) 



+ 

'7777B is used by convention for ISTYLE since and -0 have other uses such as terminating 
parameter strings and specifying grid coordinates. 
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The x and y coordinates of GUSEG are the first and second parameters, respectively. The 
third parameter is IBEAM which indicates, in this example, that all the line segments are 
to be displayed. In this context, GUSEGS identifies the relative coordinates of the starting 
point of the first segment of the figure since GUSEG identifies only endpoints of line segments. 

METHOD III 

A third method of describing the line segments forming the diamond employs 

CALL GUSEGI (IH1, IV 1, ISTYLE, IBUF, NBYTE, MBYTE) 

GUSEGI should be preceded by a call to GURSET since IH1 and IV1 are coordinates that are 
relative to the absolute coordinates specified in the last GURSET. GURSET also initializes 
an IBUF buffer for a new display item description. A display item may be a single line or a 
complete hexagon as long as its description is in a single IBUF. 

GUSEGI determines the starting point of a figure and controls-its appearance with the ISTYLE 
parameter,. The code follows. 

CALL GURSET (0, 1500, 103B, IBUF, NBYTE, MBYTE) 
CALL GUSEGI (0 , 1500 , 7777B , IBUF, NBYTE , MBYTE) 
CALL GUSEG (1500, 0,1) 
CALL GUSEG (0,-1500,1) 
CALL GUSEG (-1500, 0,1) 
CALL GUSEG (0,1500,1) 

METHOD IV 

A fourth method of describing the line segments which form the warning sign's perimeter 
uses a call to GUSEGA. The code is 

IH(1) = $IV(1) = 1500 

IH(2) = 1500 $IV(2) = 

IH(3) = $IV(3) = -1500 

IH(4) = -1500 $IV(4) = 

IH(5) = $IV(5) = 1500 

IBEAM(l) = IBEAM(2) = IBEAM(3) = IBEAM(4) = 1 
IBEAM(5) = -0 

CALL GURSET (0, 1500, 103B, IBUF, NBYTE, MBYTE) 
CALL GUSEGA (IH(1), IV(l), IBEAM(l), 4, 7777B, IBUF, NBYTE, 
1 MBYTE) 

The general call statement format is 

CALL GUSEGA (Hi, IV, IBEAM, N, ISTYLE, IBUF, NBYTE, MBYTE) 
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N is the number of segments to be generated by the GUSEGA call. You will notice that N is 
one less than the number of values in the IH and IV arrays. (These arrays must be dimen- 
sioned). 

The IH and IV parameters are the first words of the arrays which contain the horizontal and 
vertical coordinates. IBEAM is the first word of an array containing the beam control code 
for each figure segment. IBEAM(5) does not describe a segment; with a value of -0, 
IBEAM(5) turns the light beam off when the diamond is completed. 

DISPLAY LINE SEGMENTS 

In order to display line segments described by any of the four methods outlined above, the 
programmer uses 

CALL GIDISP (NCON, IBUF, NBYTE, ISQR) 

NCON is the number of the console that is to be used for the display. Usually NCON is set 
at the beginning of the program with a card NCON = 1, or NCON is read from a data card at 
the beginning of the program with the following code. 

READ 1, NCON 
1 FORMAT (12) 

The call statement format for GIDISP is 

CALL GIDISP(NCON, IBUF, NBYTE, IDDAD, IDDT, IDDC, IDWA, IDWB) 

The fourth parameter of GIDISP is IDDAD, which is the associative address in the display 
buffer and is returned by the call. The programmer may substitute any legal FORTRAN 
integer name for IDDAD. In this case, ISQR describes the square shape of the sign and 
replaces IDDAD. The IDDAD parameter is necessary to erase an item from the screen 
with an IGS erase routine. 

The fifth through eighth parameters of GIDISP are optional. The fifth parameter is IDDT. 
If IDDT = 1, the display item is an ignore item. Since 1 is ADDT's default value, the call 
to GIDISP may be terminated with a right parameter after the IDDAD. The problem 
definition indicates that an IDDT = 2 specifies that display item as a single pick item. 
Chapter 3 covers masks and possible values of IDDT. IDDC is an arbitrary word the pro- 
grammer assigns to identify a particular display item (0 < IDDC £ 2 8 - 1). Perhaps there 
are three display items with IDDCs of 2, 22, and 200. If two of them are to be erased, the 
programmer might use a test: 

IF (IDDC. NE. 22) CALL GIERAS (ITEM1, ITEM2). 
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IDWA and IDWB are ID information words. Their contents are arbitrary unless the item 
ID block is used by AETSKR. Often, programmers omit IDWA and IDWB and other optional 
parameters completely. (See Appendix C for an example of use of IDWA. ) 

SECOND STEP IN CREATION 

The second step in displaying the warning sign is displaying the words WINDING ROAD. When 
calculating the spacing for the words, allow 24 dgus in the vertical direction and 24 dgus in 
the horizontal direction for each character. WINDING is 24 times 7 dgus, or 168 dgus long. 
Position W on the screen at (-84, 770). ROAD is 24 times 4 dgus, or 96 dgus long. Posi- 
tion R at (-48, -770). 

The routine used to pack alphanumeric information into a display item description buffer is 
CALL GUAN (IBCD, NC, IBUF, NBYTE, MBYTE) 

IBCD is the first word of the array of characters to be displayed; each array word consists of 
ten characters. There are two methods of filling the IBCD array. The first method uses 
Hollerith notation, and the second employs ENCODE. 

NC is the number of characters the programmer wishes to display. The code to display 
WINDING will be 

CALL GURSET (-84,770,2, IBUF , NBYTE ,MBYTE ) 
CALL GUAN ( 7HWINDING , 7 , IBUF , NBYTE , MB YTE ) 
CALL GIDISP(NCON, IBUF, NBYTE, IWIND) 

ENCODE is not commonly used to convert input from the 274 Console, but it can be used for 
display of long strings of alphanumeric data. 

To display ROAD using ENCODE, the programmer would code 

CALL GURSET (-48, -770, 2, IBUF, NBYTE, MBYTE) 
ENCODE (4, 2, IBCD) 
2 FORMAT (4HR0AD) . 

CALL GUAN (IBCD, 4, IBUF, NBYTE, MBYTE) 
CALL GIDISP (NCON, IBUF, NBYTE, IROAD) 

The first ENCODE parameter indicates the number of characters to be encoded, the second 
parameter is the number of the format by which information is to be translated, and IBCD is 
the FORTRAN integer name attached to the character array. An optional list of additional 
information to be coded may be included. 
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THIRD STEP IN CREATION 

The third step in creation of the traffic sign is displaying the curve. The user can form the 
curve by connecting two arcs from circles to form an S-shape. If the centers of the circles 
containing the desired arcs and their endpoints are calculated, the user can use the IGS call 
GUARCG to describe the arcs which are to appear on the console. The circles or arcs de- 
scribed by GUARCG are drawn in a counterclockwise direction. The user might specify 
(256, 256) as the starting point of the arc in the top circle whose center is (0, 256). The end- 
point is (0, 0). The second arc might have a starting point of (-256, -256), a center of (0, -256) 
and an endpoint of (0, 0). 

The call format is 

CALL GUARCG (KSHOW, IHC, IVC, IH1, IV1, IH2, IV2 
1ISTYLE, IBUF, NBYTE, MBYTE) 

KSHOW indicates the number of arc segments generated by this call where all the segments 
have a common circle center. IHC and IVC are coordinates of the common center of the 
arcs. IH1 and IV1 are the starting point coordinates of the counterclockwise arc, and IH2 
and IV2 are the coordinates of the endpoint of the arc. To display the S-shaped curve, posi- 
tion the light beam at the starting point of the upper arc and describe the arc. Reposition 
the beam to the starting point of the lower arc, describe the lower arc, and then display both 
arcs. 

CALL GURSET(256, 256, 102B, IBUF, NBYTE, MBYTE) 

CALL GUARCG(1, 0,256, 256, 256, 0,0,7777B, IBUF, NBYTE, MBYTE) 

CALL GURSET(-256, -256, 102B, IBUF, NBYTE, MBYTE) 

CALL GUARCG(1, 0,-256, -256, -256. 0,0,7777B, IBUF, NBYTE, MBYTE) 

CALL GIDISP(NCON, IBUF, NBYTE, IS) 

By putting the three sections of code together with some control cards (which are discussed 
later), the operator can display a traffic caution sign warning WINDING ROAD. 

ISLO,P17,T10000,CM40000. 

RUN(S) 

LGO. 

AEFILE . 

7-8-9 

OVERLAY (S OURCE ,0,0) 

PROGRAM CREATE 

CALL MAIN 

END 

OVERLAY (1,0) 

PROGRAM JSLOW 

DIMENSION IBUF (64) , IBCD(10) , IDDAD(IO) 

NCON=l 

NBYTE=0 

MBYTE=310 
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C ATTACH CONSOLE AND CLEAR BUFFERS 

CALL GICNJB(NCON) 
C DISPIAY DIAMOND SHAPED PERIMETER 

CALL GURSET(0, 1500, 102B,IBUF,NBYTE, MBYTE) 

CALL GUSEGS(0, 1500,1500,0, 1, 7777B,IBUF,NBYTE,MBYTE) 

CALL GUSEG (0,-1500,1) 

CALL GUSEG (-1500, 0,1) 

CALL GUSEG (0,1500,1) 

CALL GIDISP(NCON,IBUF,NBYTE,ISQR) 
C DISPLAY ^WINDING ROAD* 

CALL GURSET (-84,770,2, IBUF , NBYTE , MBYTE ) 

CALL GUAN ( 7HWINDING , 7 , IBUF , NBYTE ,MBYTE ) 

CALL GIDISP(NCON,IBUF,NBYTE,IWIND) 

CALL GURSET (-48,-770,2,IBUF,NBYTE,MBYTE) 

CALL GUAN(4HR0AD, 4, IBUF, NBYTE, MBYTE) 

CALL GIDISP(NCON, IBUF, NBYTE, IROAD) 
C DISPLAY CURVE 

CALL GURSET(256, 256, 102B, IBUF, NBYTE,MBYTE) 

CALL GUARCG ( 1, 0, 256, 256, 256, 0,0, 7 777B, IBUF, NBYTE, MBYTE) 

CALL GURSET(-256,-256,102B, IBUF, NBYTE, MBYTE) 

CALL GUARCG(1, 0,-256, -256, -256, 0,0,7777B, IBUF, NBYTE.MBYTE) 

CALL GIDISP(NCON, IBUF, NBYTE, IS) 

END 
7-8-9 
OBJECT 
SOURCE 
6-7-8-9 

ISLO, P17 ,T10000 , CM40000 . 
RUN(S) 

COMMON, OBJECT. 
LGO. 

RELEASE, OBJECT. 
EXIT. 

RELEASE, OBJECT. 
7-8-9 

OVERLAY (SOURCE ,0,0) 

PROGRAM CREATE 

CALL MAIN 

END 
7-8-9 
OBJECT 
6-7-8-9 

If a version of IGS earlier than the 3. 2 version is issued, then each CALL GIDISP must be 
followed with a card that reads NBYTE = 0. The user should now be able to display an x- 
and y-axis with name labels and a number label at the origin; he might wish to draw an arc 
or curve on the x-y grid. 
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COORDINATES-ABSOLUTE AND RELATIVE 

Absolute coordinates always refer to x-y coordinates on the 274 Console. The origin (0, 0) 
is always at the center of the screen. Only five IGS calls ever specify absolute coordinates: 
GURSET, GICOPY (covered in Chapter 3), GIMOVE (covered in A-6), GITCON, and GITCOF. 

CALL GURSET (100, 0, 103B, IBUF, NBYTE, MBYTE) 

always refers to point A on the diagram in Figure 2-4, when A is 100 dgus from the center 
on the x-axis. 




Figure 2-4. Short Line Segment Diagram 



EXAMPLE 1. 



Assume that the following code appears in an application program: 

CALL GURSET(0,0,103B, IBUF, NBYTE, MBYTE) 

CALL GUSEGS(0,0, 100,0, 1,7777B, IBUF, NBYTE,MBYTE) 

IF(N.GT.3)G0T0 100 

CALL GURSET(0, 1800, 103B, IBUF, NBYTE, MBYTE) 

The second call to GURSET does not depend on the first call to GURSET. The first 
call moves the light beam to point C. The second moves the light beam to point B at 
absolute coordinates (0,1800), where B is on the y-axis 1800 dgus from the origin, 
at point C. 
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EXAMPLE 2. 

The routines GUSEGS, GUSEG, GUSEGI, and GUSEGA specify relative coordinates. 
They are preceded by a call to GURSET. 

CALL GURSET(0, 1800, 103B, IBUF, NBYTE, MBYTE) 

CALL GUSEGS (0,1800,0, 1806, 1,7777B, IBUF, NBYTE, MBYTE) 

describes a short line segment which appears as a point at B on the diagram with C 
the relative origin as well as the absolute origin. 

GUSEGS, GUSEG, GUSEGI, and GUSEGA use the first two parameters to name the 
point where the beam is located after the call to GURSET. In the case where the 
first two parameters are the same as the first two parameters of GURSET, the 
relative and absolute coordinates of the points later specified will be the same. If 
the pairs of parameters differ, a relative origin has been defined. Any point on the 
screen may thus be defined as a relative origin. 

EXAMPLE 3. 

CALL GURSET ( , 1800 , 103B , IBUF , NB YTE , MBYTE ) 
CALL GUSEGS (0,0,0, 6, 1,7777B, IBUF, NBYTE, MBYTE) 

describes the same short line segment (as in Example 2) which appears as a point at 
B on the diagram. This time, GUSEGS redefines the position of the light beam as 
relative (0, 0). C is at relative (0, -1800) and A is at relative (100, -1800). D is on 
the y-axis 1200 dgus from the center of the screen. In this case, D is at relative 
(0, -3000) but D cannot be referenced by a call to GUSEGS, GUSEG, GUSEGI, or 
GUSEGA with the current relative origin since the absolute value of the relative co- 
ordinates of these calls must be less than 2048 dgus. Be sure to watch for this as it 
is a common error to attempt to reference coordinates with absolute values greater 
than 2048 dgus. 

EXAMPLE 4. 

CALL GURSET(0 , 1800 , 103B , IBUF, NB YTE , MB YTE) 
CALL GUSEGI (100, +2000, 7777B, IBUF, NBYTE, MBYTE) 
CALL GUSEG (100, +2006,1) 

GUSEGI redefines the coordinates of point B as relative (100, +2000) with relative 
origin at (-100, -200). It describes a very short segment (a point) drawn at B. C 
has relative coordinates (100, 200), A has relative coordinates (200, 200), and D 
has relative coordinates (100, -1000). 
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The subroutines CIRCLE and LINE on page A- 16 and A- 17 are examples of a circle and 
square whose coordinates become relative to the GURSET coordinates when they are dis- 
played. PROGRAM MOVE and PROGRAM COPY on pages A-42 and A-43 are examples of 
the use of absolute and relative coordinates. 
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REVIEW QUESTIONS 

1. Each alphanumeric character with spacing is displayed in a square of what dimensions? 

a. 32 dgu X 32 dgu 

b. 24 dguX 24 dgu 

c. 10 dgu X 10 dgu 

2. On the 2 74 Console, there are approximately how many digigraphic units (dgus) per inch? 

a. 200„ 

b. 200 

c. 256 

3. A horizontal line 1024 dgus long would be completely displayed if the left-most end- 
point were positioned at: 

a. (256,1024) 

b. (512,1536) 

c. (-1792, 1280) 

4. If the programmer specifies absolute coordinates (1024, 1024) as the relative origin 
(0, 0) for a display item, he can reference the absolute coordinates: 

a. (-1280,512) 

b. (1024,-1280) 

c. (256, 768) 

5. The width of a line drawn on the 274 Console at 50% intensity is approximately: 

a. 5 dgus 

b. 1 dgu 

c. 30 dgus 

6. The calls 

CALL GURSET (0, 0, 2, IBUF, NBYTE, MBYTE) 

CALL GUSEGS (400, 200, 0, 1, 0, IBUF, NBYTE, MBYTE) 

CALL GIDISP (NCON, IBUF, NBYTE, IDDAD) 



and 



CALL GURSET (400, 200, 2, IBUF, NBYTE, MBYTE) 

CALL GUSEGS (400, 200, 0, 1, 0, IBUF, NBYTE, MBYTE) 

CALL GIDISP (NCON, IBUF, NBYTE, IDDAD) 

a. Generate a line in the same location 
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b. Generate a line in different locations 
e. Both set the relative origin at (0, 0) 

7. The shortest line segment that can be drawn with a GUSEGS, GUSEG, or GUSEGA is: 

a. dgu (a point) 

b. 1 dgu (a point) 

c. 6 dgu (a point) 

The MBYTE that is too great is: 

a. 310 

b. 290 

c. 400 

9. The following statement about NBYTE is false: 

a. NBYTE is reset to zero after a GIDISP call. 

b. An NBYTE EXCEEDS MBYTE error message can indicate NBYTE was not reset 
by the programmer or software when a new IBUF was started. 

c. Misspelling of NBYTE does not constitute a recognized error. 

10. GURSET - 

a. Drives the light beam to absolute screen coordinates given by the call. 

b. Moves the beam to the relative coordinates given by the call. 

c. Requires all but the sixth parameter in its parameter list. 

Choose answers from a through g to describe the item whose initial conditions are established 
by the call to GURSET: 

11. CALL GURSET ( 100, 100, 103B, IC1RC, NBYTE, MBYTE) 

12. CALL GURSET (-200, 0, 2, ISQR, NBYTE, 300) 

13. CALL GURSET (IH, IV, 107B, IBUF, NBYTE, MBYTE) 

a. Disable light-pen sensitivity of item 

b. Enable light-pen sensitivity of item 

c. Don't blink item when displayed 

d. Blink item when displayed 
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e. Display item at low intensity 

f. Display item at medium intensity 

g. Display item at high intensity 

14. Which of the following GIDISP calls are illegal? 

a. CALL GIDISP (NCON, IBUF, NBYTE, ISQR) 

b. CALL GIDISP (NCON, IBUF, NBYTE, RET) 

c. CALL GIDISP (NCON, IRES, NBYTE, IDDAD, 1, 2000) 

d. CALL GIDISP (NCON, IBUF, NBYTE, IDDAD1, 1, 33, 0, 0) 

15. Which of the following GUAN calls are illegal? 

a. CALL GUAN (IBCD, 10, IBUF, NBYTE, MBYTE) 

b. CALL GUAN (5HLABEL, 5, PRES) 

c. CALL GUAN (IREMARK, 6, IBUF, NBYTE, MBYTE) 

d. CALL GUAN (IBCD, 7, IBUF, NBYTE, 300) 

16. What does the following code do if standard masks are set? 

CALL GURSET (-500, 500, 103B, ILBL, NBYTE, MBYTE) 
CALL GUAN (5HTITLE, 5, ILBL, NBYTE, MBYTE) 
CALL GIDISP (NCON, ILBL, NBYTE, LABL, 2, 22) 

a. Displays TITLE at medium intensity as a string pick item at (-500, 500). 

b. Displays TITLE as a single pick item at high intensity at (-500, 500). 

c. Displays TITLE as a single pick item that is light-pen sensitive at high 
intensity with associative address ILBL. 

17. CALL GUSEGI (-300, 0, 7777B, IBUF, NBYTE, MBYTE) 

a. Initializes a display item at absolute coordinates (-300, 0). 

b. Specifies that a figure will be drawn with solid lines and begins at relative 
coordinates (-300, 0). 

c. Initializes a dashed line display item with starting point at (-300, 0) relative 
to the last call to GURSET. 
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18. CALL GUSEG (-300, 1000, 1) 

a. Is used to specify the endpoint of a line segment not to be displayed, whose 
starting point is specified by a CALL GUSEGI or a CALL GUSEG. 

b. Specifies (-300, 1000) relative to the last CALL GUSEGI as the endpoint of a 
line segment. 

c. Specifies absolute (-300, 1000) as a line segment endpoint following CALL 
GURSET (0, 0, 102B, IBUF, NBYTE, MBYTE) and GUSEGI (-300, 300, 0, 
IBUF, NBYTE, MBYTE). 

19. CALL GUSEGS (20, 100, 1000, 700, 1, 6666B, IBUF, NBYTE, MBYTE) - 

a. Generates a description of a broken line segment with relative endpoints at 
(20,100), (700,1). 

b. Describes a dashed line segment with relative endpoints at (20, 100) and 
(1000,700). 

c. Describes a broken line segment with relative endpoints at (1000, 700) and 
(20, 100). 

20. CALL GUSEGA follows CALL GURSET (-50, 50, 103B, NBYTE, MBYTE). For 
CALL GUSEGA (IH(1), IV(1), 3(1), 3, 7777B, IBUF, NBYTE, MBYTE) to generate 
a triangle with a vertex at absolute (-50, 50), the values of IH(1) and IV(1) cannot be: 

a. IH(l)=-50, IV(1)=50/IH(2)=50, IV(2)=50/lH(3)=0, IV(3)=50/lH(4) = -50, IV(4)=50 

b. IH(l)=-50, IV(1) = 50/IH(2) = 50, IV(2)=50/ffl(3)=0, IV(3) = -50 

c. IH(1)=50, IV(1)=50/IH(2)=0, IV(2) = -50/]H(3)=-50, IV(3)=50/ffl(4)=50, IV(4)=50 
When J(l) = J(2) = J(3) = 1. 

21. The CALL GUARCG (3, 100, 100, IH(1), IV(1), JH(1), JV(1), 7777B, IBUF, NBYTE, 
MBYTE) will generate a description of: 

a. 3 arcs when IH(1)=0, IV(1)=0/JH(1)=100, JV(l) = -100/lH(2)=200, IV(2)=0/JH(2) = 
100, JV(2) = 100. 

b. 3 arcs when IH(1) = 0, IV(l)=0/lH(2) = 200, IV(2)=0/lH(3)=100, IV(3)=100/JH(1)=100, 
JV(1)=100/JH(2)=100, JV(2)=100/JH(3)=0, JV(3)=0. 

c. 3 arcs when KSHOW = 3 and IH(I), IV(I), JH(I), JV(I) are 3 by 3 arrays. 
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CODING PROBLEMS 



Assume masks are set such that 



1 


= ignore 


2 


= single pick 


4 


= string pick 


8 


= button pick 


16 


= marker 


MBYTE 


= 310 


NCON 


= 1 



1. Display a solid line circle with radius of 500 dgus and center 
(500, 500) as an ignore item that blinks. 

2. Display your first and last names on the console centering your 
names at (0, 0). 

3. Use GUSEGS to display a horizontal dashed line 1500 dgus 
long on the screen with left endpoint at (-1500, -1000). 

4. Use GURSET, GUSEGI and GUSEG to display an isosceles tri- 
angle with one vertex at (100, 100). 

5. Display an enclosed semicircle with center (-200, 0) and radius 
100 dgus. 

6. Use three two-line segments and an arc to display the first, 
fourth and third quadrants of a circle with lines marking the 
y-axis boundary of the enclosed portion of quadrant I and mark- 
ing the x-axis boundary of the enclosed portion of quadrant III. 
Make it an ignore item with center at (-200, 0) and radius 100 dgus. 

7. Use GUSEGI and GUSEG to display an X 50 dgus wide and 70 
dgus high with center at point (100, 300) on the screen. Label 
the center point. 





(100,100) 



(200,0) 



"^7 








(100,300) 



44629300 Rev. D 



2-19 



Suppose we wish to draw the hexagon at the right. There is (200,400) 

an array of horizontal coordinates and an array of vertical / \ 

coordinates listed in clockwise order such that (400,0)( ) (400,0) 

IH(1) = -200 IV(1) = 400 ^ '(200,-400) 

IH(2) = 200 IV (2) = 400 

IH(3) = 400 IV(3) = 

IH(4) = 200 IV (4) = -400 

IH(5) = -200 IV(5) = -400 

IH(6) = -400 IV (6) = 

IH(7) = -200 IV(7) = 400 

IBEAM(1)=IBEAM(2)=IBEAM(3)=IBEAM(4)=IBEAM(5) 
=IBEAM(6)=1 

Use GURSET and GUSEGA to describe and display the figure. 
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DRIFTING CIRCLE 



One feature of the Interactive Graphics System is that the user can interact with the computer 
by using a light-pen or, on some systems, a keyboard. In order to illustrate some of the 
capabilities of IGS when a light-pen is used, the manual presents the Drifting Circle ' example 
(Figure 3-1). In this example, there is a display of a console title DRIFTING CIRCLE, and 
a display of a circle as a macro. The programmer attaches a tracking cross to the circle, 
moves the circle to the right side of the screen, and copies the circle on the left side of the 
screen. He then erases the entire screen by picking a REPEAT button display item. 
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Figure 3-1. Drifting Circle 



"^Appendix A includes a different approach to the Drifting Circle problem. 
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DISPLAYING THE TITLE 

The console title is 15 times 24 dgus, or 360 dgus long. Position the lower left-hand corner 
of the D at (-180, 1000). The code to display the title using ENCODE is 

CALL GURSET(-180. 1000, 102B, IBUF,NBYTE, MBYTE) 
ENCODE (15, 1.IBCD3 
1 FORMAT (15HDRIFTING CIRCLE) 

CALL GUAN(IBCD, 15, IBUF, KBYTE, MBYTE) 
CALL GLDISP(NCON,IBUF,NBYTE,ILBL) 



or 



DATA IBCD/15HDRIFTING CIRCLE/ 

• • ■ 

• • . 

CALL GURSET(-180, 1000, 1.02B, IBUF, NBYTE.MBYTE) 
CALL GUAN(IBCD, 15, IBUF,NBYTE, MBYTE) 
CALL GIDISP(NCON,IBUF,NBYTE,ILBL) 

DISPLAYING THE CIRCLE 

Use GUARCG to display the circle. To display a circle with center at (-1024, 0) and a radius 
of 512 dgus, the routines GURSET, GUARCG, and GIDISP may be used. 

The problem definition calls for the circle to be displayed as a macro. The term macro, 
when related to IGS, refers to an item which can be displayed in many places on the screen 
without repetition of the description of the item. The use of macros conserves display buf- 
fer memory. 

CALL GUARCG stores the description of the circle in IBUF. The programmer who follows 
CALL GUARCG with CALL GrMAC(NCON, IBUF, NBYTE, MAD) stores the display item 
description as a display macro. 

MAD is the associative address in the display buffer of the new macro which is returned as 
a result of the CALL. MCIRC or any other legal FORTRAN integer name could be substi- 
tuted for MAD in the parameter string. When the programmer refers to this macro in later 
calls, he should reference it by the address name that has been selected, in this case MAD. 

A macro can be displayed as an ignore item (IDDT = 1), a single pick item (IDDT = 2), or 
some other type of item. In this case, the following code makes the circle a macro and dis- 
plays it as a button pick item (IDDT = 8), with center at (-1024,0) and starting point at 
(-512, 0). The display item code (IDDC) has been set to 33. A light pen pick of a sensitive 
button pick item causes a program branch. 
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CALL GUARCG(1,- 1024, 0,-512,0, -512, 0,7777B,IBUF,NBYTE, 
1 MBYTE) 
CALL GIMAC(NCON,IBUF,NBYTE, MCIRC) 
C CREATE CIRCLE MACRO 

CALL GURSET(-512,0,102B,IBUF,NBYTE, MBYTE) 
CALL GUMACG (MCIRC, 1,IBUF,NBYTE, MBYTE) 
CALL GIDISP(NC0N,IBUF,NBYTE,ITEM1,8,33) 

if a GURSET had been used before GUARCG, the macro could not be moved. The CALL 
GUMACG (MAD1, L, IBUF.NBYTE, MBYTE) must be used with GIDISP to display the circle 
maero. MAD1 is the first word of an array containing parameters returned by earlier calls 
to GIMAC. If the user wishes to display four concentric circles as one display item and each 
circle is a macro, L = 4 as long as the concentric circles have consecutive MAD parameters. 
L = 1 when one macro is displayed as one display item. 

MOVING A MACRO 

The macro circle may also drift. One method involves attaching a tracking cross to the 

macro. A tracking cross is a software display item which always exists somewhere 

on the console screen. If the programmer desires, he can display the cross at a point (such 
as 1792, 1792) which is off the circular 274 screen and, therefore, invisible to the user. 

When attaching the tracking cross, a call to GITCON should turn on the tracking cross at the 
initial or starting position of a display item. To turn on the tracking cross at this circle's 
starting point (-512, 0), the call 

CALL GITCON (N CON, -512,0) 

is used. 

The last two parameters are the x and y screen coordinates where the center of the tracking 
cross is to appear. There is a key on the light-pen which can be used in various picking 
situations. In this case, the pen is used to pick the tracking cross at location (-512, 0). The 
cross is then automatically attached to the pen and moves with the light-pen as the pen is 
moved across the screen. 

Attach the circle macro to the tracking cross with 

CALL GITMMV(NCON, MCIRC) 

where MCIRC is the associative address of the circle macro that was specified in CALL 
GUMACG. If the circle was only a display item, not a macro, the operator would use 

CALL GITIMV(NCON,IDDAD) 
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where IDDAD is the associative address of the display item which will be attached to the 
tracking cross. 

The light-pen key is activated by using 

CALL GILPKYflSTCON, 8, 7) 

IDDT = 8, which indicates the release of the key is queued as a button pick. The code 
(IDDC) associated with the button pick is 7. The fourth and fifth parameters of GILPKY are 
IDWA and IDWB. They are optional unless the AE routines are used for this button. 

In the Drifting Circle example, the user simply picks the tracking cross with the light-pen 
and, with the light-pen key depressed, tows the circle to the right side of the screen. Suppose 
he stops the light-pen and releases the key at approximately (600, 0) on the screen (Figure 
3-2). The release of the light-pen key queues a button pick. This pick has IDDC = 7. Dis- 
play of the circle at its new location is done only after towing is complete. A button pick 
test can be inserted here. Another test verifies that the tracking cross was in fact moved. 
In this example, the circle can be moved three different times. 

GIBUT TESTS 

To simply move the circle ITEM with starting point (-512, 0) to a position where the starting 
point is (1000, 600), the call is 

CALL GIMOVE (1000, 600, 102B, ITEM 1, 8, 33) 

where the general call is 

CALL GIMOVE (IH, IV, ICODE, IDDAD, IDDT, IDDC, IDWA, IDWB) 

GICLR clears all ID blocks from the queues so that multiple button picks do not cause confu- 
sion. The GIBUT routine fetches the first sequential button pick item from the queue and 
returns the last six parameters in its parameter string. 

The first parameter, IR, is zero if the processing is to wait until a button pick type ID block 
is queued. IR = 1 if a return to the calling task is expected immediately. 

K=0 
201 CALL GICLR(NCON) 

CALL GIBUT (0 ,NC0N, IDDT , IDDC , IDWA, IDWB , IH, IV) 

K=K+1 

IF(K.EQ.3) GO TO 202 

IF(IDDC.NE.7) GO TO 201 

IF(IH.NE.-512.AND.IV.NE.O) GO TO 201 
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Figure 3-2. Towing the Drifting Circle 

DISPLAYING THE MOVED MACRO IN ITS NEW LOCATION 

IH and IV are the coordinates of the light-pen pick which caused the block to be queued. They 
are returned as a result of the call. If GILPKY created the ID block, the exact tracking 
cross coordinates at the time of interrupt are returned. Because the tracking cross coordi- 
nates at the time of pick do not always coincide with the starting point of the macro, the ap- 
proximate coordinates for the starting point of the macro to be displayed appear as an ignore 
item after the move associated with the last button pick. CALL GITCOF(NCON, IH, IV) would 
also return coordinates of the tracking cross. 

CALL GURSET( IH, IV, 10 2B , IBUF,NBYTE , MBYTE ) 
CALL GUMA.CG(MCIRC,1,IBUF,NBYTE, MBYTE) 
CALL GIDISP(NC0N,IBUF,NBYTE,ITEM2,1) 
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STATUS CHANGE 

To change the status of the light-pen key from a button to an ignore item, the operator would 
call GILPKY. 

CALL GILPKY(NCON) 

DETACH CROSS 

Though it is not necessary to detach the tracking cross, this is an opportunity to demonstrate 
the method of detaching a tracking cross from a macro. When the tracking cross is detached, 
it can be moved away from the macro without moving the macro. 

CALL GITMMV(NCON, 0) 

COPY CIRCLE 

The original circle on the left of the screen is displayed as well as the circle on the right- 
hand side. In order to clear part of the screen for a copy of the moved circle, ITEM2, the 
display item ITEM1 is erased. 

CALL GIERAS(ITEMl) 

The call statement format is 

CALL GIERAS (IDDAD.., IDDAD , . . . IDDAD ) 

i & n 

where IDDAD n is the associative address of the item to be erased. 

In order to copy the display item, ITEM2, with starting point at (-300, -100), GICOPY is 
called. 

CALL GICOPY (ITEM2,NCON, -300, -100, 106B, ITEM3, 1) 

This call duplicates the circle ITEM2, assigns a new ID block and reset sequence to the copy 
ITEM3, and displays the copy at (-300, -100). 

The first parameter is IDDADI, the associative address of the item to be duplicated. The 
fifth parameter is ISTYLE which specifies a blinking circle displayed at medium intensity. 
The sixth parameter is the IDDAD of the new item. The seventh parameter is IDDT. 

ERASE CONSOLE 

The last task is erasing the console by picking a REPEAT button. The code for this task is 
included in the listing of the program. 
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CONSOLE INITIALIZATION 

At the beginning of the listing, with the dimension and initialization code, there is a new IGS 
call. CALL GICNJB(NCON) attaches the console with the number equal to NCON and clears 
tables and masks from previous programs. 

JDRIFT , P17 , T10000 , CM40000 . 

RUN(S) 

LGO. 

AEFILE. 

7/8/9 

OVERLAY ( S OURCE , , ) 

PROGRAM CREATE 

CALL MAIN 

END 

OVERLAY (1,0) 

PROGRAM DRIFT 

DIMENSION IBUF(64), IBCD(lO),ILBL(2) 

NC0N=1 
C ATTACH CONSOLE 

CALL GICNJB(NCON) 

MBYTE=310 

NBYTE=0 
C SET MASKS 

DO 100 1=2,5 

N=2**(I-1) 

100 CALL GIMASK(NCON,-0,N,N,) 
C DISPLAY REPEAT BUTTON 

101 CALL GURSET (-1200,- 1200, 102B,IBUF,NBYTE, MBYTE) 
CALL GUAN(6HREPEAT,6,IBUF,NBYTE,MBYTE) 

CALL GLDISP(NC0N,IBUF,NBYTE,ICLR,B,44) 
C DISPLAY TITLE 

CALL GURSET ( -180, 1000, 102B,IBUF,NBYTE, MBYTE) 

ENCODE ( 15, l.IBCD) 
1 FORMAT (15HDRIFTING CIRCLE) 

CALL GUAN(IBCD, 15, IBUF,NBYTE, MBYTE) 

CALL GIDISP(NCON,IBUF,NBYTE,ILBL,2) 

CALL GUARCG(1, -1024, 0,-512,0, -512, 0, 7777B,IBUF,NBYTE, MBYTE) 

CALL GIMAC(NCON,IBUF,NBYTE,MCIRC) 
C CREATE CIRCLE MACRO 

CALL GURSET(-512,0,102B,IBUF,NBYTE, MBYTE) 

CALL GUMACG(MCIRC,1,IBUF,NBYTE, MBYTE) 

CALL GIDISP(NCON,IBUF,NBYTE,ITEMl) 
C TURN TRACKING CROSS ON 

CALL GITCON (NCON, -512,0) 
C ATTACH MACRO TO TRACKING CROSS 

CALL GITMMV(NCON,MCIRC) 
C ACTIVATE LIGHT PEN KEY 

CALL GILPKY(NCON,8,7) 

K=0 
202 K=K+1 
201 CALL GICLR(NCON) 

CALL GIBUT(0 ? NCON,IDDT,IDDC,IDWA,IDWB,IH,IV) 

IF(IDDC.EQ.1)G0 TO 210 

IF(IDDC.GE.2.AND.IDDC.LT.7)G0 TO 203 

IF(K.LT.3)GO TO 202 
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IF(IDDC.NE.7)G0 TO 201 
C DISPLAY CIRCLE IN NEW LOCATION 

CALL GURSET(IH,IV,102B,IBUF,NBYTE,MBYTE) 

CALL GUMACG(MCIRC,1,IBUF,NBYTE, MBYTE) 

CALL GIDISP(NCON.IBUF,NBYTE,ITEM2) 

CALL GILPKY(NCON) 

CALL GITMMV(NCON,0) 

CALL GIERAS(ITEMl) 
C DISPLAY A COPY OF CIRCLE 

CALL GICOPY(ITEM2,NCON,-300,-100,106B,ITEM3) 
C ERASE CONSOLE 

200 CALL GIBUT(0,NCON,IDUM,IDX) 

IF(IDX.NE.44)G0 TO 200 

CALL GIERAS(ILBL,ICLR,ITEM2,ITEM3) 

GO TO 101 

STOP 

END 
7/8/9 
OBJECT 
SOURCE 
6/7/8/9 



CLEAR MACROS 



If the programmer needed to clear macros from the console controller's display buffer so he 

could use the area for other macros, he would use CALL GIMACE(MAD,, . . . MAD ). MAD 

i n n 

is the buffer address of the macro to be erased. The call which would erase the circle 

macro in the Drifting Circle example is 

CALL GIMACE(MCIRC) 
See Appendix A example, ERASE A MACRO. 

TERMINATE JOB 

A CALL GIABRT(NCON, IBCD,NC) card could have been used in the Drifting Circle example 
to voluntarily terminate the job at any point during execution. GIABRT displays an abort 
message which is stored in IBCD. NC is the number of characters in the message. To dis- 
play the message JOB COMPLETE, the code would be 

CALL GIABRT(NCON, 12HJOB COMPLETE, 12) 

GIABRT also enables EXIT control cards and dumps to be processed. Whenever the user 
signs off or aborts, he should display a message. He can use GURSET, GUAN and GIDISP 
for a message preceding a normal termination with GUAN and GIDISP for a message pre- 
ceding a normal termination with GICNRL. 
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SET MASKS 

The programmer must set his own masks at the beginning of each program. Three lines of 
code following the comment card SET MASKS specify the mask IDDT values for the Drifting 
Circle example. Using a DO loop and CALL GIMASKflMCON, IDDTC, IDDTS, IMASK), the 
programmer sets masks at the beginning of this program. 

IDDTC is the value of the bit pattern to be cleared from the specified pick processing masks. 
In the Drifting Circle example, all masks had been set to zero because CALL GICNJB(NCON) 
preceded the mask setting loop. GICNJB attaches a console or aborts a calling job if the 
console number, NCON, is not valid or if the console is not available. GICNJB also clears 
tables and previously set masks. 

The third parameter of GIMASK is IDDTS which is the value of the bit pattern to be set in the 
masks specified. 

IMASK may be any one or any combination of the following: 

= 1 Ignore mask 

=2 Single pick mask 

=4 String pick mask 

=8 Button pick mask 

= 16 Marker mask 

The ignore mask for IDDT need not be set. A pickable item is displayed as a single pick, 
string pick, or button pick item. 

Mask Examples: 

• To initially set a mask for a button where an IDDT of 8 indicates a button pick, 
the operator must set the mask in the button pick mask with IMASK = 8. 

CALL GIMASK(NCON, 0, 8, 8) 

• The mask in the button pick mask area need not be set to 8. If the operator 
initially wishes an IDDT = 2 to indicate a button, use 

CALL GIMASKCNCON, 0, 2, 8) 

The user may wish to display a menu of button pick items with IDDT = 2 and may 
subsequently want to change these items to buttons with IDDT = 8 so he can dis- 
play another menu of single pick items with IDDT = 2 to be associated with these 
buttons. 
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• To change a button pick mask that is currently set to |000|010| . to a button mask 
where an IDDT of 8 indicates a button pick, use 

CALL GIMASK(NCON, 2, 8, 8) 

which simultaneously clears and sets the button pick. 

• To initially set masks so a single pick will be marked (i.e., will change blinking 
status when it is picked), use 

CALL GIMASK(NCON, 0, 2, 2) 
CALL GIMASKOSTCON, 0, 16, 16) 

An IDDT = 18 or IDDT = 16 + 2 or IDDT = 22B would indicate a marked single 
pick item with these mask settings. To simultaneously set 2 in the single pick 
mask and the marker mask, use 

CALL GIMASK(NCON, 0, 2, 2+16) 

The original blinking status of an item is reversed when the marked item is queued. When 
the item is fetched through a GIBUT or AETSKR, the item resumes its original blinking 
status. 

If the user plans to display an item so that it is a single pick, string pick, or button pick 
item, an ICODE such as 103B (1000011, enable item's sensitivity to light-pen strike) and 
an IDDT of 2, 4, 8 or a combination with 16 is recommended. Suppose a button is displayed 
with an ICODE of 103B (not blinking) and it is desirable to have it blink when picked with the 
light-pen. The IDDT of the button will be 8 + 16 = 24. In the special case where the button 
is to be a prime button which can be queued as both a button and a string pick or a button and 
a single pick, the IDDT might be 4 + 8 + 16 = 28 or 2 + 8 + 16 = 26. These numbers can be 
expressed in octal as 34B or as a sum such as 12 + 8 in the parameter string as well as in 
decimal. 
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REVIEW QUESTIONS 

1. Light buttons — 

a. Are a displayed letter, symbol, or word to be picked with the light-pen. 

b. Are circles of light that appear on the console whenever a light-pen pick is to 
be made. 

c. Are always the buttons on the function keyboard or alphanumeric keyboard. 

2. Which of the following parameters would not be used, by convention, to identify an item 
you wished to erase with GIMACE or GIERAS ? 

a. IDDAD 

b. MAD 

c. IDWA 

3. GIMASK requires the following parameters: 

a. NCON, IDDTC, IDDTS 

b. NCON, IDDTC, IDDTS, IMASK 

c. NCON, IDDTC, IMASK 

4. CALL GIMASK (NCON, 0, 30B, 30B) indicates: 

a. A button mask and a marker mask are set. 

b. An item is displayed at high intensity and blinks. 

c. A single pick, a string pick mask, a button pick mask, and a marker mask are 
set. 

5. In order to set a single pick mask and a marker mask, the call would not be: 

a. CALL GIMASK (NCON, 0, 188, 188) 

b. CALL GIMASK (NCON, 0, 22B, 22B) 

c. CALL GIMASK (NCON, 0, 16+2. 16+2) 

6. What does the following code do? 

CALL GURSET(-400, 600, 106B, MSG, NBYTE, MBYTE) 
ENCODE (33, 1, MESAGE) 
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1 FORMAT (33HUSE FONT TO INPUT PARAMETER NAMES) 
CALL GUAN (MESAGE, 33, MSG, NBYTE, MBYTE) 
CALL GIDISP (NCON, MSG, NBYTE, MERASE, l) 

a. Displays a 33-character message as a blinking single pick item at (-400,600). 

b. Displays an ignore item message 33 characters long at medium intensity, that 
can be erased with CALL GIERAS (MERASE). 

c. Displays the message in MESAGE as a blinking ignore item, with IDDAD being 
MSG. 

7. Which of the following does not display STATEMENT at (-300, 200) successfully? 

a. CALL GURSET (-300, 200, 102B, ISTATE, NBYTE, MBYTE) 
IBCD (1) = 9HSTATEMENT 

CALL GUAN (iBCD(l), 9, ISTATE, NBYTE, MBYTE) 
CALL GIDISP (NCON, ISTATE, NBYTE, JSTMT, 8, 22) 

b. ENCODE (9, 1, IBCD(l)) 
1 FORMAT (9HSTATEMENT) 

CALL GURSET (-300. 200, 102B, ISTATE, NBYTE, MBYTE) 
CALL GUAN (iBCD(l), 9, ISTATE, NBYTE, MBYTE) 
CALL GIDISP (NCON, ISTATE, NBYTE, JSTMT, 8, 22) 

c. n=1 

CALL GURSET (-300, 200, 102B, ISTATE, NBYTE, MBYTE) 
CALL GUAN(9HSTATEMENT ,N, ISTATE , NBYTE , MBYTE) 
CALL GIDISP (NCON, ISTATE, NBYTE, JSTMT, 7, 22) 

8. The following sets the starting point of the figure initialized by GUSEGI at absolute 
coordinates: 

CALL GURSET (-200, -200, 102B, IBUF, NBYTE, MBYTE) 
CALL GUSEGI (-200, -200, -0, IBUF, NBYTE, MBYTE) 

a. (0, 0) 

b. (-400, -400) 

c. (-200, -200) 

9. The correct code to display a solid line triangle with a vertex at absolute (200, 200) 



is: 



a. CALL GURSET (200, 200, 10 3B, IBUF, NBYTE, MBYTE) 
CALL GUSEGI (0, 0, 7777B, IBUF, NBYTE, MBYTE) 
CALL GUSEG (100, -200, 1) 
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CALL GUSEG (-100, -200, 1) 

CALL GUSEG(0, 0, 0) 

CALL GIDISP (NCON, IBUF, NBYTE, ITNGL, l) 

b. CALL GURSET (200, 200, 103B, IBUF, NBYTE, MBYTE) 
CALL GUSEGI(200, 200. 0, IBUF, NBYTE, MBYTE) 
CALL GUSEG (100, 0, 1) 
CALL GUSEG (-100, 0, 1) 
CALL GUSEG(200, 200, 1) 
CALL GIDISP (NCON, IBUF, NBYTE, ITRI, l) 

c CALL GURSET(0, 0, 102B, ITRI, NBYTE, MBYTE) 
CALL GUSEGI(0, 0, -0, ITRI, NBYTE, MBYTE) 
CALL GUSEG (200, 200, 0) 
CALL GUSEG (100, 0, 1) 
CALL GUSEG(-100, 0, l) 
CALL GUSEG (200, 200, 0) 
CALL GIDISP (NCON, ITRI, NBYTE, ITNEL, l) 

10. This code displays which one of the figures described below? 

CALL GURSET (0, 0, 106B, IBUF, NBYTE, MBYTE) 

CALL GUSEGS(0, 0, +200, -200, 1, 0, IBUF, NBYTE, MBYTE) 

CALL GUSEG(0, -200, 0) 

CALL GUSEG (200, 0, 1) 

CALL GIDISP (NCON, IBUF, NBYTE, IDDAD, 1) 

a. A triangle with vertex at (0, 0) which blinks. 

b. A blinking X with center at (100, -100). 

c. A blinking square with sides 200 dgus long. 

11. CALL GUAR CG (1, 300, 300, 500, 300, 300, 500, 7777B, IBUF, NBYTE, MBYTE) - 

a. Describes a 90° arc with center (300, 500). 

b. Describes a 270° arc with center (300,300), and starting point (500, 300). 

c. Describes a solid line arc with center (300,300). 

12. If you wished to create a display macro from an IBUF description buffer, you would 
use: 

a. CALL GUMACG (MAD1, L, IBUF, NBYTE, MBYTE) 

b. CALL GIMACE (MAD1, MAD2, ..., MADN) 

c. CALL GIMAC (NCON, IBUF, NBYTE, MAD) 
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1 3. After using CALL GUSEGS(0, 0, 600, 0, 1, 7777B, IBUF, NBYTE, MBYTE) to describe a 
line, which of the following should be used to store the display bytes as a macro? 

a. CALL GIMAC (NCON, IBUF, NBYTE, MAD) 

b. CALL GIMAC (NCON, IFIGURE, NBYTE, MAD) 

c. CALL GIMAC (NCON, IFIG, NBYTE, MAD) 

14. Which of the following correctly completes the coding to display a circle macro 
ICIRCL? 

CALL GIMAC (NCON, IBUF, NBYTE, ICIRCL) 
CALL GURSET (0, 0, 103B, IBUF, NBYTE , MBYTE) 
1 CALL (a, b, or c below) | 

CALL GLDISP (NCON, IBUF, NBYTE, JCIRC, 8) 

a. CALL GUMACG (ICIRCL, 1, IBUF, NBYTE, MBYTE) 

b. CALL GUMACG (ICIRCL, 3, IBUF, NBYTE, MBYTE) 

c. CALL GIMAC (NCON, IBUF, NBYTE, ICIRCL) 

15. To erase the item displayed in Problem 14, which of the following should be used? 

a. CALL GIMACE (JCIRC) 

b. CALL GIMACE (ICIRCL) 

c. CALL GIERAS (JCIRC) 

16. CALL GIMACE (MAD1, MAD2, MAD3) is used to: 

a. Clear three macros, MAD1, MAD2, and MAD3 from the 1774's core display 
buffer area. 

b. Clear the screen of three macros displayed with GIDISP. 

c. Erase the display items, MAD1, MAD2, and MAD3 that are alphanumeric 
information. 
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CODING PROBLEMS 

Assume the following. Masks are: 



1 


= ignore 


2 


= single pick 


4 


= string pick 


8 


= button pick 


16 


= marker 



MBYTE = 310 
NCON = 1 

1. Make the triangle created in Chapter 2 Coding Problem 4 a macro and display it. 

2. Set up masks where: 

1 = ignore 

2 = single pick 
4 = string pick 
8 = button pick 
16 = marker mask 

assuming masks are now set to zero. 

3. CALL GIDISP (NCON, IBUF, NBYTE, SQR, 2) displays a square as a single pick item, 
with upper right corner at (-700, 100). Provide the calls which will copy this square 
and display its upper right-hand corner at location (500, 0) if the item's point of origin 
is its upper right corner. 

4. Turn the tracking cross on so the person at the console can move it to another location 
on the screen. Find out where the tracking cross is after a button containing IDDC=200 
is picked. Wait for this button. 

5. Display a circle with starting point and endpoint at the location of the moved tracking 
cross in Problem 4. Let 550 be the radius of the circle. 

6. Use three statements to display CLEAR as a button with IDDC=2, IDWA=400, IDWB=/ 
CLER/and C at (-1000, -1000). Do not use ENCODE. 

7. Use GIBUT to get back a button pick of CLEAR from Problem 6. Use a check to deter- 
mine whether GIBUT returned a pick of CLEAR or a pick of another button on the screen. 
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8. Turn the tracking cross on. Attach it to the display item with associative address 
IFENDER. 

9. Turn the tracking cross on. Attach it to the macro of a wheel hub. Assume a wheel has 
been drawn in the following order: RIM(MAD(1)), SPOKES(MAD(2)), then HUB(MAD(3)). 

10. Erase the macros in Problem 9, and the display of the wheel (WHEEL). 

11. At the end of the program use GICNRL to clear the queues and release the console. 

12. a. Display a circle with a radius of 100 and center at location (-700, 0). 

b. Move the circle to a position where it is centered at (400, -200). 

c. Display the abort message, MOVE COMPLETED, and terminate this job. 

13. Use GILPKY to obtain the new coordinates of a tracking cross that has been moved more 
than 100 dgus in any direction. The old coordinates are IH and IV. 
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MENU EXAMPLE 



GENERAL 

The following Menu example is included to illustrate the use of button picks, string picks, 
and single picks. 

Figure 4-1 is a display of a menu with some instructions. The operator is to use the lightpen 
to choose the APPETIZER heading after one item in the appetizer column. He chooses the 
ENTREE heading after one entree and the DESSERT heading after one dessert. The user 
may choose, one, two, three, or four of the items in the DRINK column before the heading 
pick. As the user makes his choices, the items that he did not choose are erased from the 
screen. Thus, his entire order is displayed when he has made all his choices. A pick of the 
NEXT ORDER button at the bottom of the screen restores the menu so another person can 
order a meal. The user must follow the directions carefully as the routines contain few 
internal checks. 
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Figure 4-1. Menu 
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After a thorough study of the program, it is a beneficial exercise to add the necessary checks. 
The IDDC and IDDT of each pick returned should be checked. If there is an error, an error 
message should be output using GURSET, GUAN, and GIDISP. Then a jump to 191 should be 
made to wait for a pick of the button NEXT ORDER. The operator is then able to begin his 
order again. This is one of the many ways to program a path of recovery for the 274 operator. 

It is recommended that a button be added to voluntarily terminate the job, display a message, 
and release the console. A message indicating the job has been terminated can be easily dis- 
played using GURSET, GUAN, and GIDISP. 

The instruction lines can be displayed as ignore items, the headings as buttons, the items 
under APPETIZER, ENTREE and DESSERT as single pick items, the items under DRINK as 
string pick items, and NEXT ORDER as a button. Assume the standard mask settings with 
1 = ignore, 2 = single pick, 4 = string pick, 8 = button pick, and 16 = marker. The work 
area of the screen is a rectangle from (-1000, -600) to (200,600) and (-1000, -600) to (200, 
-600). 

MENU FLOWCHART 




DIMENSIONING 
DATA STATEMENT 



ATTACH 
CONSOLE 



SET MASKS 
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CD 



DISPLAY ONE OF FOUR INSTRUCTION LINES 
AS AN IGNORE ITEM SO LINES ARE 100 DGU'S APART 




h© 



USE LOOP TO DISPLAY THE COLUMN HEADINGS 
AS BUTTONS 480 DGU'S APART 



REPOSITION THE BEAM TO THE LEFT TO 
DISPLAY THE ITEMS UNDER HEADINGS 



NO. OF ITEMS DISPLAYED 
IN A COLUMNS 



Gh 



DISPLAY ITEMS COLUMN BY COLUMN 




IDDT=4 
ITEM IS DISPLAYED 
AS A STRING 
PICK ITEM 



IDDT= 2 ITEM IS DISPLAYED AS A SINGLE PICK ITEM 
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cp 



I MOVE 430 DGU'S TO THE RIGHT TO DISPLAY NEXT COLUMN | 
| — ' 

I NO ITEMS DISPLAYED=0 I 

T 

| RES TORE BEAM TO TOP OF ITEM LIST | 

— 3 — 

| NO ITEMS DISPLAYED =NO.+l] 




©■ 



| DISPLAY NEXT ORDER BUTTON 

aig , 



WAIT FOR PICK OF A 
HEADING AFTER ITEM PICKS 



MAKE THE BUTTON SENSITIVE TO FURTHER LIGHT PEN PICKS 



BRING 
BACK 
FOUR 
STRING 
PICKS 



A 




YES^X" IS THE 
SET ARRAYS TO |«— < HEADING PICKEC 



| FETCH LAST SINGLE PICK ITEM CHOSEN UNDER THIS HEADING | 



SET CONSTANTS INDICATING WHICH OF THE FIRST THREE HEADINGS WAS PICKED 



^ 



4-4 



44629300 Rev. D 



^ 




YES 



| PICK UP LAST SINGLE PICK ITEM CHOSEN UNDER THIS HEADING I 

| SET CONSTANTS INDICATING WHICH OF THE FIRST THREE HEADINGS WAS PICKED | 

I 
P ERASE ALL ITEMS UNDER HEADING EXCEPT ONE PICKED t 
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MENU LOOP 



The CALL GURSET, CALL GUAN, and CALL GIDISP series is used to display alphanumeric 
information. There are 22 display items in this problem. Therefore, it would require at 
least 45 lines of code just to display the menu, instructions, and NEXT ORDER button. A 
loop is the best approach, but remember that ENCODE does not allow a variable as the for- 
mat number parameter. A data statement is used to display the desired information in a 
reasonable number of lines of code. 

C DISPLAY INSTRUCTION LINES 

DATA IBCD/40HCHOOSE ONE APPETIZER ,THEN HEADING , 
1 40H ENTREE ,THEN HEADING 

1 40H DESSERT ,THEN HEADING 

1 40HCHOOSE DRINKS (.LE. 4) ,THEN HEADING , 



500 



20 
C 



30 



C 
C 



39 
40 
C 



, 20HENTREE 
, 20HDRINK 
,20HTOMATO JUICE 
, 20HSTEAK 
,20HCHICKEN 
, 20HPIE 
, 20HTEA 
,20HMILK 
,20HNEXT ORDER 



120HAPPETIZER 

120HDESSERT 

120HCRAB COCKTAIL 

120HCHOWDER 

120HLOBSTER 

120HSHERBET 

120HCAKE 

120HCOFFEE 

120HWINE ',20HNEXT ORDER / 

IV=550 

DO 20 1=1,13,4 

CALL GURSET(-840 ? IV, 102B,IBUF,NBYTE, MBYTE) 

CALL GUAN ( IBCD ( I ) , 40 , IBUF , NBYTE , MBYTE ) 

CALL GIDISP(NCON, IBUF, NBYTE, IER(l), 1,1) 

IV=IV-100 

DISPLAY MENU LABELS AS BUTTONS 

IH=-960 

DO 30 J=17,23,2 

CALL GURSET(IH, 50, 102B, IBUF, NBYTE, MBYTE) 

CALL GUAN (IBCD (J), 13, IBUF, NBYTE, MBYTE) 

CALL GIDISP(NC0N,IBUF,NBYTE,IER(J),8,J) 

IH=IH+480 

IH=-960 

IV=-50 

IDDT=2 

ICNT=1 

DISPLAY ALL ITEMS ON THE MENU AS SINGLE PICKS EXCEPT DRINKS 

DRINKS ARE STRING PICKS 

DO 40 K=25.49,2 

IF(K.GE.43)IDDT=4 

CALL GURSET(IH, IV, 102B, IBUF, NBYTE, MBYTE) 

CALL GUAN( IBCD (K), 13, IBUF, NBYTE, MBYTE) 

CALL GIDISP(NCON, IBUF, NBYTE , IER(K) , IDDT, K) 

IF(ICNT.LT. 3. OR. K.EQ.47)GO TO 39 

IH=IH+480 

ICNT=0 

IV=50 

ICNT=ICNT+1 

IV=IV-100 

DISPLAY NEXT ORDER BUTTON 

CALL GURSET(- 120, -550, 102B, IBUF, NBYTE, MBYTE) 

CALL GUAN (IBCD (51), 10, IBUF, NBYTE, MBYTE) 

CALL GIDISP(NCON,IBUF,NBYTE,IER(5l),8,51) 
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The user now begins to use the light-pen to choose the items of a meal. The program must 
identify and fetch the picks the user makes. As the picks are identified, the items that were 
not picked are erased. 

C CALL FOR BUTTON ID BLOCKS FOR ALL FOUR BUTTONS 

DO 109 11=1,4 

CALL GIBUT(0,NCON,IDT,IDC) 
C CHANGE THE BUTTON TO AN IGNORE ITEM 

CALL GIMOVE(-0,-0,-0,IER(LDC),l) 
C WHEN BUTTON IS FOR A STRING OF DRINKS, BRANCH 

IF(IDC.EQ.23)GO TO 102 
C CALL FOR SINGLE PICKS 

CALL GIFID(NCON,IDTT,IDCC) 

GO TO 107 
C CALL FOR STRING PICKS 
102 CONTINUE 
C SET ARRAYS TO ZERO 



SET ARRAYS TO 
DO 103 1=1,4 
IDTX(I)=0 

103 ITCX(I)=0 

DO 104 LM=1,4 
NC=1 

104 CALL GIFSID(NCON,NC,IDTX(LM),ITCX(LM)) 
C ERASE UNPICKED DRINKS 

IIJ=0 

DO 106 J=43,49,2 

DO 105 1=1,4 

IF(J.EQ.ITCX(I))IIJ=J 

IF(IIJ.GT.O)GO TO 106 

IF(I.EQ.4.AND.IIJ.EQ.0)CALL GIERAS(lER(j)) 

105 CONTINUE 

106 IIJ=0 

GO TO 109 
C ERASE ALL BUT PICKED ITEMS UNDER BUTTON 

107 IF(IDC.EQ.17)IJ=25 
IF(IDC.EQ.19)IJ=31 
IF(IDC.EQ.21)IJ=37 

C ERASE ITEMS UNDER APPETIZER OR ENTREE OR DESSERT 
DO 108 JJ=1,5,2 
IK=JJ+IJ-1 

IF(IK.EQ.IDCC)G0 TO 108 
CALL GIERAS(IER(IK)) 

108 CONTINUE 

109 CONTINUE 



See Note 1 
See Note 2 

See Note 3 

See Note 4 
See Note 5 

See Note 6 

See Note 7 



Note 1: In order to change an item displayed as a button to an item displayed as an ignore 
item, the IDDT parameter must be changed from 8 to 1. The CALL GIMOVE (-0, 
-0, -0, IER(IDC), 1) says the display items IH, IV, and ICODE parameters remain 
the same. IDDAD is IER(IDC) and the new IDDT=1. GIMOVE can change the 
location, reset sequence and/ or ID block information of an item. The intensity or 
light-pen sensitivity of an item might be changed. The first four parameters are 
required. (See Appendix A for additional uses, of GIMOVE. ) 
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Note 2: CALL GIFID(NCON, IDDT, IDCC) fetches the last single pick ID block stored in the 
6000 series buffer. In this case, and in most cases, it is the ID block of the last 
single pick item chosen by the light-pon. GIFID destroys the queued ID block. 

Note 3: The string pick items that will be returned have different IDDC values, so an IDDC 
array is dimensioned. Some may be marked string picks with a value of 24B, while 
other items may be unmarked with an IDDT = 4, so you must also dimension and set 
to zero an array for IDDT. 

Note 4 : The call statement format for GIFSID is CALL GIFSID(NCON, N, IDDT, IDDC, IDWA, 
IDWB, IH, IV) with the first three parameters required. N is the number of string 
pick type ID blocks the programmer wishes to fetch. Only 16 string pick blocks 
at a time are queued in the buffer. If fewer than N blocks are queued, N is returned 
equal to the number of blocks that were actually fetched. When N is greater than 
one, the programmer must dimension the parameters IDDT, IDDC, IDWA, IDWB, 
IH, and IV. IDDT and IDDC are returned as a result of the call. The horizontal 
and vertical coordinates, IH and IV, are the coordinates of the light beam register 
when the interrupt (which caused the block to be queued) occurred. They are re- 
turned as a result of the call. IH and IV are in the vicinity of the initial point of the 
display item and they probably vary from pick to pick. See Appendix A example, 
DISPLAY AN ID BLOCK RETURNED FROM A CALL TO GIFSID(A-6). 

Note 5: The nested DO loops compare the IDDC code of each drink with the IDDCs of the 
drinks chosen. When a match is found, comparisons of the next IDDCs begin. If 
no match is found for a particular IDDC, the item with that IDDC is erased. 

Note 6: The unpicked drink is erased and GIERAS returns to the ID DAD of the item, which 
in this case is EER(J). Later, when the entire screen is erased, the IER(J) = will 
not be processed, but later items will be erased if IER(J) is nonzero. 

Note 7: This section of code determines which button was returned. A button with an IDC 
of 9 is the APPETIZER button since the GIDISP, which originally displayed 
APPETIZER, had an IDDC = 9. Thus, a button with an IDC = 1 is the ENTREE 
button. 

The following code fetches the NEXT ORDER button and erases the rest of the con- 
sole. The program then loops back to the display section to display the menu for 
the next order. 
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C ERASE REST OF CONSOLE AFTER NEXT ORDER BUTTON 

C PICK 

191 CALL GIBUT(0,NCON,IDUM,IDX) 

IF(IDX.NE.22)GO TO 191 

DO 190 1=1,43,2 
190 CALL GIERAS(IER(I)) 

GO TO 500 

CREATION RUN 

When running an IGS program, it is necessary to make a creation run which assigns the 
program to a file. This is followed with as many execution runs as desired. The creation 
run deck is set up in the following way. 

MENU,P17,T10000,CM40000. 

RUN(S) 

LGO. 

AEFILE. 

7_8-Q 

OVERLAY (S OURCE ,0,0) 
PROGRAM CREATE (INPUT, OUTPUT) 
CALL MAIN 
END 

OVERLAY(1,0) 
PROGRAM NMENU 

DIMENSION IER(45 ) , IDTX(4) , ITCX (4) , IBCD(45) , IBUF(100) 
NCON=l 
NBYTE=0 
MBYTE=310 
CALL GICNJB(NCON) 
DO 26 1=1.5 
j=2**(l-l) 
26 CALL GIMASK(NCON,0,J,J) 



PROGRAM MENU 



• 
END 
7/8/9 
OBJECT 
SOURCE 
6/7/8/9 
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EXECUTION RUN 

The execution deck for the Menu example is the following: 

MENU,P17,T10000,CM40000. 

RUN(S) 

COMMON, OBJECT. 

LGO. 

RELEASE, OBJECT. 

EXIT. 

RELEASE OBJECT 

7/8/9 

OVERLAY(SOURCE ,0,0) 

PROGRAM CREATE (INPUT, OUTPUT) 

CALL MAIN 

END 
7/8/9 
OBJECT 
6/7/8/9 

The task creation and execution runs are set for a program which does not read data cards. 
If data cards are used with the program, the PROGRAM CREATE card in both decks must 
be replaced with a PROGRAM CREATE (INPUT, OUTPUT) card. 

The name of the graphics common file can be changed from one job to another, but it must 
be identical in the creation run and in the execution run. The name of the zero-zero over- 
lay can also change from job to job. 

MENU EXAMPLE LISTINGt 

The listing of the complete Menu example with its creation deck setup and execution deck 
setup follows. (See page 5-10 for information regarding SCOPE 3. 3 update information. ) 

MENU*P17.T10000»CM40000. 

RUN<S) 

LGO. 

AEFILE. 

7/8/9 

OVERLAY<SOURCE,0,0> 

PROGRAM CREATE ( INPUT .OUTPUT) 

CALL MAIN 

END 

OVEPLAY<1,0) 

PROGRAM NMENU 

DIMENSION IER(53),IDTX(4),ITCX(4),IBCD(53),IBUF(64> 

NC0N=1 

NBYTE=0 

MBYTE=310 



'Appendix A includes a different approach to the Menu problem. 

4 " 10 4462 9300 Rev. D 



26 
C 



500 



20 
C 



30 



C 
C 



39 
40 
C 



CALL GICNJB(NCON) 

DO 26 1=1*5 

J=2»«(I-1> 

CALL GIMASK(NCON*0»J*J) 

DISPLAY INSTRUCTION LINES 
1DATA IBC0/40HCH00SE ONE APPETIZER 
1 » 40H ENTREE 

1 40H DESSERT 

1 40HCHOOSE DRINKS ULE. 4) 



,THEN 
,THEN 
,THEN 
,THEN 



HEADING 
HEADING 
HEADING 
HEADING 



♦20HENTREE 

»20HDRINK 

♦20HTOMATO JUICE 

♦20HSTEAK 

♦20HCHICKEN 

»20HPIE 

♦20HTEA 

♦20HMILK 

♦20HNEXT ORDER 



120HAPPETIZER 

120HDESSERT 

120HCRAB COCKTAIL 

120HCHOWDER 

120HLOBSTER 

120HSHERBET 

120HCAKE 

120HCOFFEE 

120HWINE 

IV=550 

DO 20 1=1*13*4 

CALL GURSET (-840* IV. 102B.IBUF»NBYTE»MBYTE> 

CALL GUANdBCD(I) »40. IBUF.NBYTE. MBYTE) 

CALL GIDISP (NCON* IBUF *NBYTE» IER ( I ) ♦ 1 » I ) 

NBYTE=0 

IV=IV-100 

DISPLAY MENU LABELS AS BUTTONS 

lH=-960 

DO 30 J=17*23*2 

CALL GURSET ( IH»50* 102B* IBUF»NBYTE*MBYTE) 

CALL GUAN(IBCD(J),13»IBUF.NBYTE. MBYTE) 

CALL GIDISP(NC0N*IBUF*NBYTE*IER(J)*8»J> 

NBYTE=0 

IH=IH+480 

IH=-960 

lV=-50 

IDDT=2 

ICNT=1 

DISPLAY ALL ITEMS ON THE 

DRINKS ARE STRING PICKS 

DO 40 K=25»49*2 

IF<K.GE.43)IDDT=4 

CALL GURSET ( IH, IV* 102B. IBUF»NBYTE*MBYTE) 

CALL GUAN(IBCD(K>.13»IBUF»NBYTE»MBYTE> 

CALL GIDISP (NCON* IBUF, NBYTE* IER (K)*IDDT*K) 

NBYTE=0 

IF(ICNT.LT.3.0R.K.EQ.47)G0 TO 39 

IH=IH*480 

ICNT=0 

IV=50 

ICNT=ICNT*1 

IV=IV-100 

DISPLAY NEXT ORDER BUTTON 

CALL GURSET (-120*-550»102B» IBUF*NBYTE*MBYTE> 

CALL GUAN(IBCD(51) , 10*IBUF,NBYTE»MBYTE) 



MENU AS SINGLE PICKS EXCEPT DRINKS 
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CALL GIDISP(NC0N,IBUF,NBYTE»IER<51>»8,22) 

NBYTE=0 
C CALL FOR BUTTON ID BLOCKS FOR ALL FOUR BUTTONS 

DO 109 11=1,4 

CALL 6I8UT(0,NC0N,IDT,IDC) 
C CHANGE THE BUTTON TO AN IGNORE ITEM 

CALL GIMOVE(-0,-0.-0»IER(IDC>,1> 
C WHEN BUTTON IS FOR A STRING OF DRINKS, BRANCH 

IF(IDC.EQ.23)G0 TO 102 
C CALL FOR SINGLE PICKS 

CALL GIFID<NCON,IDTT,IDCC) 

GO TO 107 
C CALL FOR STRING PICKS 

102 CONTINUE 

C SET ARRAYS TO ZERO 
DO 103 1=1.4 
IDTX(I)=0 

103 ITCX(I>=0 

DO 104 LM=1,4 
NC=1 

104 CALL GIFSID(NCON,NC»IOTX(LM),ITCX(LM)) 
C ERASE UNPICKED DRINKS 

IIJ=0 

DO 106 J=43,49,2 

DO 105 1=1,4 

IF(J.EQ.ITCX(I))IIJ=J 

IF(IIJ.GT.0)GO TO 106 

IF(I.EQ.4.AND.IIJ.EQ.0>CALL GIERASC IER( J) ) 

105 CONTINUE 

106 IIJ=0 

GO TO 109 
C ERASE ALL BUT PICKED ITEMS UNDER BUTTON 

107 IF(IDC.EQ.17)IJ=25 
IF(IDC.EQ.19)IJ=31 
IF(IDC.EQ.21)IJ=37 

C ERASE ITEMS UNDER APPETIZER OR ENTREE OR DESSERT 
DO 108 JJ=1,5,2 
IK=JJ*IJ-1 

IFdK.EQ.IDCOGO TO 108 
CALL GIERASdER(IK)) 

108 CONTINUE 

109 CONTINUE 

C ERASE REST OF CONSOLE AFTER NEXT ORDER BUTTON PICK 
191 CALL GIBUT(0,NCON,IDUM,IDX) 
DO 189 J=l,13,4 

189 CALL GIERAS(IER(J>) 
IF(IDX.NE.22)G0 TO 191 
DO 190 1=17,51,2 

190 CALL GIERAS(IER(I)> 
GO TO 500 

END 
7/8/9 
OBJECT 
SOURCE 
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6/7/8/9 

MENUtP17»T10000,CM40000. 

RUN(S) 

COMMONtOBJECT. 

LGO. 

RELEASE, OBJECT. 

EXIT. 

RELEASE, OBJECT. 

7/8/9 

OVERLAY (SOURCEtCO) 

PROGRAM CREATE (INPUT, OUTPUT) 

CALL MAIN 

END 
7/8/9 
OBJECT 
6/7/8/9 



44629300 Rev. D 4 13 



REVIEW QUESTIONS 

1. If the programmer wishes to fetch a button pick ID block, he will use: 

a. CALL GIBUT (0, NCON, IDDT, IDDC, IDWA, IDWB, IH, IV) 

b. CALL GIFSID (NCON, 1, IDDT, IDDC, IDWA, IDWB, IH, IV) 

c. CALL GIF ID (NCON, IDDT, IDDC, IDWA, IDWB, IH, IV) 

2. Which of the following will give faulty information? 

a. CALL GIBUT (1, NCON, IDDT, IDDC) 

b. CALL GIFSID (NCON, 3, IDT) 

c. CALL GIFID (NCON, IDT, IDC, IDA, IDB. 100, 300) 

3. YES and NO are displayed on the console. The programmer uses a light-pen to pick 
one of them. Which of the following correctly fetches a YES button or a NO button? 

a. CALL GIDISP (NCON, I YES, NBYTE, MYES, 8) 

• 
CALL GIDISP (NCON, INO, NBYTE, MN0, 8) 
CALL GIBUT (0, NCON, 8, IDDC) 
IF (IDDC. EQ. 22) GO TO 20 
IF (IDDC. EQ. 33) GO TO 30 



b. CALL GIDISP (NCON, I YES, NBYTE, MYES, 2) 
CALL GIDISP (NCON, INO, NBYTE, MN0, 2) 



CALL GIBUT (0, NCON, ITYP) 
IF (ITYP. EQ. 8) GO TO 20 
GO TO 20 

• 

c ' CALL GIDISP (NCON, I YES, NBYTE, MYES, 8, 22) 



CALL GIDISP (NCON, INO, NBYTE, MN0, 8, 33) 
CALL GIBUT (0, NCON, IDDT, IDDC) 
IF (IDDC. EQ. 22) GO TO 20 
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IF(IDDC. EQ. 33) GO TO 30 






4. A CALL GIBUT - 

a. Precedes a CALL GIFSID when GIFSID is to process a button pick. 

b. Starts an ID block and a CALL GIFID processes the ID parameter from the last 
string pick. 

c. Requires that the first four parameters of its parameter list be specified. 

5. What is a light register? 

a. A bright block of light that appears on the console screen at a given location. 

b. The button on the head of the light-pen that is present for a light -pen pick. 

c. An area on the screen defined by underlines and used to input and fetch 
alphanumeric information. 

6. CALL GIERASUDAD1, IDAD2, IDAD3) - 

a. Erases the display items with IDDADs equal to IDAD1, IDAD2, IDAD3, and 
returns -0 in the IDDAD of each display item that has been erased. 

b. Erases three display items when IDAD1 = IDAD1, IDAD2 = -0, and IDAD3 = 0. 

c. Erases two items when IDAD1 = IDAD1, IDAD2 = IDAD2, and IDAD3 = -0. 

7. GICNJB is used: 

a. At the end of a program to erase a single display item. 

b. To attach a console before displaying items. 

c. To attach a console after ID blocks are filled. 

8. GICLR is useful for: 

a. Preventing access to previously queued ID blocks 

b. Erasing a single display item on the screen. 

c. Erasing macros. 
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9. GICNRL, can be used: 

a. In the middle of a program to abort the job. 

b. To abort a job if the requested console number is not valid. 

c. To release the graphics console from control of the calling job. 

10. The program card in the zero-zero overlay must indicate the input/ output files (i. e., 
PROGRAM CREATEUNPUT, OUTPUT)): 

a. Whenever a READ or a WRITE are used in the IGS program. 

b. Whenever the 274 Console is used to display items. 

c. Whenever interaction occurs between the program and user. 

11. What is needed to run IGS jobs? 

a. SCI 700, 6000 series computer, and 250 Console. 

b. A 6000 series computer, 24K 1700, and 274 Console. 

c. 3200, 1700 series computer, and 274 Console. 

TRUE OR FALSE 

12, The zero-level overlays of all runs of a graphics job must be identical. 

13. When an IGS run is input at the remote 1700 series computer site, the information 

goes directly to the 1700 series software package, bypassing the buffer translator 
and the 6000 series computer. 

14. EXPORT performs data communication between the 6000 series computer and the 1700 

series computer. 

15., The IGS task level overlay cards are conventionally like RUN FORTRAN task level 

overlay cards, which specify only the primary and secondary overlay levels in octal. 

16 Standard 6000 series computer binary cards can be input to IGS with the proper header 

cards. 

17. .The program card in the (1, 0) overlay may be used to list file requirements such as 

INPUT, OUTPUT, or TAPE 6. 
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CODING PROBLEMS 

Assume masks are set: 



1 


= ignore 


2 


= single pick 


4 


= string pick 


8 


= button pick 


16 


= marker 


NCON 


= 1 


MBYTE 


= 310 



The masks are set as in Chapter 3 Problem 2, except the marker mask does not mark 
an ignore item. Format a GIDISP call that will cause a single pick item to blink when 
picked. 

Suppose a programmer is beginning a program and wishes to attach a graphics console 
so he can display some items. Attach a console. Disconnect the console. 



PROGRAM DISPLY 

NCON = 1 
? 

? 

? 



Use GIFID to retrieve the approximate coordinates of the last queued single pick item 
in a program. Use standard parameter names. 

Suppose there is a button pick item and three string pick items displayed. Fetch the 
ID parameters from the last string pick the user chose. 

Use GIBUT to return a button. Check to see if a single pick is available. Check to 
see how many string picks are available. 
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SCISSORING 



This chapter describes an example of scissoring, the input of information through font picks, 
and overlay structure. The problem is outlined in four steps. 



PROBLEM DESCRIPTION 

Step 1. 



Display a 10 by 10-inch square (Figure 5-1) with its center coordinates at (0,0). 
Display an arc with endpoints of (1600, 0) and (0, -1600) and center coordinates of 
(1080, -1080), of which only the scissored portion is displayed in a counterclock- 
wise path of illumination. A line with endpoints of (1200, -24) and (-800, 16) is 
described but, once again, only the scissored portion is illuminated. 



ALPHANUMERIC 
FONT 



10 

INCH 

SQUARE 




Figure 5-1. Scissoring Example 
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Step 2. Display an alphanumeric font at (0, 1500) with $ as the end-of-message character. 
Use OVERLAY (1, 1) to complete Step 2. 

Step 3. Use a light register to input up to six characters for the x-axis label. Display the 
label with the leftmost character at (-48, -1200). Accept up to six characters for 
the y-axis label. Display the label with leftmost character at (-1150, 0). 

Step 4. Erase the font and release the console. 

The programmer should insert code to display a message when the CLEAR button is picked. 
The first cards of the program are 

OVERLAY (ABC, 0,0) 

PROGRAM CREATE 

COMMON IA,IB,IC,NCON,MBYTE 

CALL MAIN 

END 

OVERLAY(l.O) 

PROGRAM SCISR 

COMMON IA,IB,IC,NCON,MBYTE 

DIMENSION IBUF(100) 

MBYTE =3 10 

NBYTE=0 

NC0N=1 
C ATTACH CONSOLE 

CALL GICNJB(NCON) 
C SET MASKS 

DO 101 1=1,5 

N=2**(I-1) 
101 CALL GIMASK(NCON,0,N,N) 
C DISPLAY CLEAR BUTTON 

CALL GURSET(- 1200 , - 1200 , 102B , IBUF,NBYTE , MBYTE) 

CALL GUAN(5HCLEAR, 5, IBUF, NBYTE, MBYTE) 

CALL GIDISP(NCON, IBUF , ICLR, 30B , 44 ) 

DISPLAY SQUARE 

The code for displaying the 10 by 10-inch square is similar to the code for displaying the 
perimeter of the winding road sign. If the center of the square is at (0, 0), the upper right- 
hand corner will be located at (1000, 1000) on the screen since 200 dgus/inch times 5 is 1000 
dgus. 

CALL GURSET(1000 , - 1000 , 102B , IBUF ,NBYTE .MBYTE) 
CALL GUSEGS ( 1000 , - 1000 , - 1000 , - 1000 , 1 , 777 7B , IBUF , NBYTE , 
1MBYTE) 
CALL GUSEG(- 1000, 1000,1) 
CALL GUSEG( 1000, 1000,1) 
CALL GUSEG( 1000, -1000,1) 
CALL GIDISP(NCON, IBUF, NBYTE, IFRAM,1) 
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SCISSOR ARC 

The problem is to scissor an arc and display only the portion that falls within the 10 by 10- 
inch square or frame. The IGS routine GUARC is an arc-scissoring routine. The call 
statement format is 

CALL GUARC ( IHCEN , IVCEN , IHCOR, IVCOR , HC , VC , HI , VI , 
1H2,V2,KSH0W,IHC,IVC,IH1,IV1,IH2,IV2) 

The first two parameters, IHCEN and IVCEN, are the coordinates of the center of the frame. 
IHCOR and IVCOR are the coordinates of the upper right-hand corner of the frame. 

HC and VC are the coordinates of the center of the circular arc to be scissored; HC and VC 
are floating point numbers. Hi, VI and H2, V2 are real coordinates of the right and left ends, 
respectively, of the arc to be scissored. 

KSHOW is a flag. When KSHOW=0 the given arc is completely outside of the frame. When 
KSHOW=l through 5, it indicates the number of arc segments within the frame. 

IH1, IV1, IH2, and IV2 are returned as a result of the call. These parameters form the end- 
points of those portions of the arc within the frame. Each of these parameters is the first 
word in any array KSHOW words long. 

The code to scissor and display the arc in the example is 

CALL GUARC (0,0, 1000, 1000, 1080. -1080. ,1600. ,0. ,0. ,-1600. , 
1KSH0W,IHC,IVC,IH1,IV1,IH2,IV2) 

IF(KSHOW.EQ.0)GO TO 1500 

CALL GURSET( IH1 , IV1 , 102B , IBUF,NBYTE , MBYTE) 

CALL GUARCG(KSHOW, IHC, IVC, IH1, IV1, IH2 , IV2 , 7777B , 
1IBUF , NBYTE , MBYTE ) 

CALL GIDISP(NCON,IBUF, NBYTE, IARC,1) 
1500 CONTINUE 

SCISSOR LINE SEGMENT 

Similarly, a line segment can be scissored and displayed. The IGS routine to scissor a line 
is GULINE. The call statement format is 

CALL GULINE(IHCEN, IVCEN, IHCOR, IVCOR, HI, VI, H2,V2, 
1KSH0W,IH1,IV1,IH2,IV2) 

The first four parameters are the same as the first four parameters described under GUARC. 
HI, VI and H2, V2 are floating point number coordinates of the left and right ends, respec- 
tively, of the line to be scissored. 
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If KSHOW=0, the line segment is completely outside the frame. If KSHOW=l, the line seg- 
ment is completely within the frame. If KSHOW=2, the line segment is partially within the 
frame and has been scissored. 

IH1, IV1 and IH2, IV2 are the display grid coordinates of the left and right endpoints, 
respectively, of the portion of the line within the frame. The coordinates are returned as 
a result of the call. 

The code to scissor and display the line is: 

CALL GULINE(0, 0.1000, 1000, -800. ,16., 1200., -24., KSHOW 
1JH1,JV1,JH2,JV2) 

IF(KSH0W.NE.2)G0 TO 1600 

CALL GURSET(JH1,JV1,102B,IBUF,NBYTE, MBYTE) 

CALL GUSEGS(JH1,JV1,JH2,JV2,1,7777B,IBUF,NBYTE, 
1MBYTE) 

CALL GIDISP(NC0N,IBUF,NBYTE,LIN,1) 
1600 CONTINUE 

ALPHANUMERIC FONT 

In Step 2 an alphanumeric font (Figure 5-2) is displayed by a program in OVERLAY (1, 1). 
The name of the program in OVERLAYd, 1) is FONT. The program from OVERLAY (1, 0) is 
called with CALL AETSKC(4LFONT) or CALL AETSKC(4HFONT). See Appendix A for the 
example Creation of a Light Button Under Application Executive. When the button is picked, 
the application executive brings task DISP into core for execution. 

The vertical dimensions are IV+172 to IV- 172 and the horizontal dimensions are IH-332 to 
IH+332. There are two IDDADs associated with this font. (This is important when erasing 
the font; both sections identified by IDDADs must be erased. ) 

To display this font (Figure 5-2), use IGS routine GFONTA. The call statement format is: 

CALL GF0NTA(NC0N, IH, IV, IDDA, IDDN) 

IH and IV are coordinates of the approximate center of the font. IDDA and IDDN are 
associative addresses of the display font sections and are returned as a result of the call. 

END-OF-MESSAGE CHARACTER 

In order to determine the end of a character string which the user is inputting with light-pen 
picks of characters of the font, he may establish one character as an end -of- mess age 
character. Let $ be the EOM character for the scissoring example. CALL GIEOM(NCON, 
IBCD, IDDT, IDDC, IDWA, IDWB) is the general call statement format. The statement in 
the scissoring example is CALL GIEOM(NCON, IH$, 8, 11). 
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Figure 5-2. Alphanumeric Font 
The code for OVERLAYd, 1) is 

0VERLAY(1,1) 

PROGRAM FONT 

COMMON IA, IB, NCON, MBYTE 
C SET BUTTON MASK 

CALL GIMASK(NCON,0,8,8) 
C DISPLAY FONT 

CALL GFONTA(NCON,0,1500,IA,IB) 

CALL GIE0M(NC0N,1R$,8.11) 
C RETURN TO OVERIAY(l,0) 

CALL AERTRN 

END 

CALL AERTRN returns to the statement following the CALL AETSKC card. 

LIGHT REGISTER INPUT 

Step 3 is coded in OVERLAYd, 0). A light register is a specific area on the screen for 
operator input of alphanumeric information. A CALL GIANS(NCON, NC, IH, IV) creates a 
light register which will accept up to NC characters. The end-of-message character is 
counted as one of the characters. The user sees a dashed line at the location of the light 
register, and the left-hand end of the dashed line has coordinates IH, IV. 



4462 9300 Rev. D 



5-5 



Information may be retrieved from the light register. Suppose the user is picking the letters 
SPEED$ with the light-pen. Check the input again and again for a button with IDDC=11, $, 
with a call GIBUT. When $ is chosen, call GIANE to retrieve the information from the light 
register. CALL GIANE (N CON, NC, IBUF) brings back NC characters and stores them in 
IBUF. In this case, the user will input axis names of variable lengths so that the NC returned 
is the actual number of characters chosen. The $ is usually not displayed as part of the 
label, so let NC=NC-1 for the number of characters to be displayed. 

The code for Step 3 is 

K=0 
1000 NC=6 

CALL GIANS(NCON,6,1400,1200) 
1100 CALL GIBUT(0,NCON,IDDT,IDDC) 

IF(IDDC.NE.11)G0 TO 1100 

CALL GIANE(NC0N,NC,IBCD) 
C TEST FOR AT LEAST ONE CHARACTER 

IF(NC.EQ.1)G0 TO 1000 

NC=NC-1 

IF(K.NE.0)GO TO 1200 
C DISPLAY AXIS LABELS ****x THEN Y 

CALL GURSET ( -48,- 1200, 102B, IBUF, NBYTE, MBYTE) 

CALL GUAN(IBCD,NC, IBUF, NBYTE, MBYTE) 

CALL GIDISP(NCON, IBUF, NBYTE, IXAX,1) 

GO TO 1000 
1200 CALL GURSET(- 1150, 0,102B, IBUF, NBYTE, MBYTE) 
CALL GUAN(IBCD,NC, IBUF, NBYTE, MBYTE) 
CALL GIDISP(NC0N, IBUF, NBYTE, IYAX,1) 

Step 4 includes erasing the font. Remembering that the alphanumeric font has two IDDADs, 
the user enters CALL GIERASUA, IB). 

NUMERIC FONT 

There is also a numeric font (Figure 5-3). It has only one IDDAD and its call statement 
format is 

CALL GFONTN(NCON, IH, IV, IDDAD) 

The vertical dimensions are IV+334 and IV-244 and its horizontal dimensions are IH+268 

to IH-244. The IH and IV coordinates specified are the coordinates of the center of the circle. 
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Figure 5-3. Numeric Font 
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ESTIMATING NBYTE 

When displaying such items as the instruction for this example, there is no need for each 
line to be displayed with a GURSET, GUAN, GIDISP sequence of calls. All 80 characters 
of the instructions can be packed in one buffer IBUF, and displayed with a single GIDISP 
call. Refer to Appendix G of the IGS Reference Manual. The number of bytes packed by 
the following code may be calculated. 

CALL GURSET (-650,- 1400, 103B, IBUF, NBYTE, MBYTE) 
CALL GUAN (INST(1), 40, IBUF, NBYTE, MBYTE) 
CALL GURSET(- 650.- 1500, 103B, IBUF, NBYTE, MBYTE) 
CALL GUAN( INST (5), 40, IBUF, NBYTE, MBYTE) 
CALL GIDISP(NCON, IBUF, NBYTE, MBYTE) 

GURSET packs 3 bytes, GUAN packs 1 + NC+1/2 bytes and GIDISP packs 10 bytes. 

3 + (l + i£i) + 3 + (l + i^±VlO=N 

3 + 22 + 3 + 22 + 10 = 60 bytes = NBYTE 

If the fraction NC + 1 is an odd number, round the fraction NC + 1/2 up. MBYTE was set at 
310 and NBYTE does not exceed MBYTE so only one GIDISP call is necessary. 

In the Menu example the menu items were displayed with separate GIDISP calls because each 
item needed a different IDDAD so it could be identified and erased at the appropriate time. 
Could the four instruction lines be displayed as one item ? If so, what would the code be ? 

If one of the lines of instruction in the Scissoring example had been a button pick item and 
the other an ignore item, two GIDISP calls would be required to set the two IDDT values. 
Whenever NBYTE approaches the maximum MBYTE (310) the programmer should check the 
number of bytes packed in the 1744. (This can be checked by using the fourth column (Table 
G-l) of Appendix G of the IGS Reference Manual. ) 
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COMPLETING EXAMPLE 

The routine GICNRL releases the specified graphics console from the control of the calling 
job. The user may also wish to display a message indicating the job is terminated and the 
console is released. The code for Step 4 is 

2000 CALL GIBUT(0,NCON,IDUM,IDX) 
IF(IDX.NE.44)G0 TO 2000 

CALL GIERASdAjIBjICLR^FRAM^ARCLINjINFCINFOR^XAX.IYAX) 

CALL GICNRL (NCON) 

STOP 

END 

SCISSORING EXAMPLE 

A listing of the entire Scissoring example creation run follows. 

JSCISR.P17.T10000.CM40000. 

RUN(S) 

LGO. 

AEFILE. 

7/8/9 

OVERLAY(ABCO.O) 

PROGRAM CREATE (INPUT. OUTPUT) 

COMMON IA. IB. NCON. MBYTE 

CALL MAIN 

END 

OVERLAYU.0) 

PROGRAM SCISR 

COMMON IA.IB. NCON. MBYTE 

DIMENSION IBUF(64).IH1<5),IV1(5>.IH2(5).IV2<5).JH1<5)»JV1(5)» 
1JH2(5) .JV2(5> .IBCDO) .INST (8) 

DATA INST/40HPICK 5 CHARACTERS AND $ AS X AXIS LABEL t 
1 40HTHEN 5 CHARACTERS AND $ AS Y AXIS LABEL / 

MBYTE= 310 

NBYTE=0 

NCON=l 
C ATTACH CONSOLE 

CALL GICNJB(NCON) 
C SET MASKS 

DO 101 1=1.5 

N=2**(I-1> 
101 CALL GIMASMNCON. O.N.N) 
C DISPLAY CLEAR BUTTON 

CALL GURSET (-1200.-1200. 102B.IBUF.NBYTE.MBYTE) 

CALL GUAN(5HCLEAR.5.IBUF»NBYTE» MBYTE) 

CALL GIDISP (NCON. IBUF.NBYTE. ICLR.30B.44) 

CALL GURSET (1000.-1000* 102B. IBUF.NBYTE. MBYTE) 

CALL GUSEGS (1000 .-1000 .-1000 .-1 000. 1.7777B, IBUF.NBYTE, MBYTE) 

CALL GUSEG(-1000tl000»l) 

CALL GUSEG(lOOO.lOOO.l) 

CALL GUSEG(lOOOt-lOOO.l) 

CALL GIOISP (NCON. IBUF.NBYTE. IFRAM. 1 ) 

CALL GUARC (0*0 .1000. 1000 .1080.. -1080.* 1600.. 0..0. .-1600.. KSHOW 



'Appendix A includes a different approach to the Scissored Arc problem. 
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1IHC.IVC.IH1.IV1.IH2.IV2) 

IF(KSHOW.EQ.0)6O TO 1500 

CALL GURSET ( IH1 , I VI » 102B. IBUF.NBYTE.MBYTE) 

CALL GUARCG (KSHOW.IHC. I VC.IH1. I VI. IH2. I V2.7777B, IBUF.NBYTE. MBYTE) 

CALL GIDISP(NCON,IBUF,NBYTE»IARC»l) 
1500 CONTINUE 

CALL GUL INE( 0.0.1 000 » 1000 ,-800., 16. ♦ 1200. ,-24. »KSHOW. JH1. JV1. 
1JH2.JV2) 

IF(KSHOW.EQ.0)GO TO 1600 

CALL GURSET (JH1.JV1.102B. IBUF.NBYTE. MBYTE) 

CALL GUSEGS ( JH1 . JV1 » JH2. JV2. 1 .7777B. IBUF.NBYTE. MBYTE) 

CALL GIDISPCNCON.IBUF .MBYTE »L IN. 1) 
1600 CONTINUE 

CALL AETSKCULFONT) 
C DISPLAY INSTRUCTIONS 

CALL GURSET (-650 .-1400. 103B. IBUF.NBYTE. MBYTE) 

CALL GUANUNST(l) .40. IBUF.NBYTE. MBYTE) 

CALL GURSET (-650.-1500, 103B. IBUF.NBYTE.MBYTE) 

CALL GUAN(INST(5) ,40. IBUF.NBYTE.MBYTE) 

CALL GIDISP(NCON. IBUF.NBYTE. INF OR. 1) 

K = 
1000 NC=6 

CALL GIANS(NCON.6,1400,1200> 
1100 CALL GIBUT(O.NCON.IDOT.IDDC) 

IFdDDC.NE. 11)60 TO 1100 

CALL GIANE(NCON.NC.IBCD) 
C TEST FOR AT LEAST ONE CHARACTER 

IF(NC.EQ.l)GO TO 1000 

NC=NC-1 

IF(K.NE.0)GO TO 1200 
C DISPLAY AXIS LABELS **»*X THEN Y 

CALL GURSET (-48.-1200, 102B, IBUF.NBYTE.MBYTE) 

CALL GUAN(IBCD,NC» IBUF.NBYTE, MBYTE) 

CALL GIDISP(NCON, IBUF.NBYTE. I XAX.l) 

K = l 

GO TO 1000 
1200 CALL GURSET(-1150.0.102B»IBUF.NBYTE. MBYTE) 

CALL GUANdBCD.NC. IBUF.NBYTE.MBYTE) 

CALL GIDISP (NCON, IBUF.NBYTE. I YAX.l) 
2000 CALL GIBUT(O.NCON.IDUM.IDX) 

IFUDX.NE.44)GO TO 2000 

CALL GIERAS(1A,IB»ICLR»IFRAM»IARC»LIN»INF0»INF0R»IXAX»IYAX) 

CALL GICNRL(NCON) 

END 

OVERLAY (1.1) 

PROGRAM FONT 

COMMON IA.IB.NCON. MBYTE 
C SET BUTTON MASK 

CALL GIMASK(NC0N»0»8»8> 
C DISPLAY FONT 

CALL GFONTA(NCON, 0,1500. IA, IB) 

CALL GIE0M(NC0N.1RS»8»11> 
C RETURN TO OVERLAY (1.0) 

CALL AERTRN 

STOP 

END 
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7/8/9 

OBJ 

ABC 

6/7/8/9 

JSCISR»P17»T10000»CM40000. 

RUN(S) 

COMMON»OBJ. 

LGO. 

RELEASE»OBJ. 

EXIT. 

RELEASE. OBJ. 

7/8/9 

OVERLAY(ABC»0»0> 

PROGRAM CREATE <INPUT»OUTPUT) 

COMMON IA.IB.NCON. MBYTE 

CALL MAIN 

END 
7/8/9 
OBJ 
6/7/8/9 

FILE CREATION 

The general organization of a file creation run deck is illustrated in Figure 5-4. Note that 
the overlay cards specify only the primary and secondary overlay levels in octal. 

FILE EXECUTION 

This is a typical program execution run deck (Figure 5-5). It follows the deck that created 
the graphics common file called OBJECT. The current overlay file name need not be 
SOURCE, but the zero-zero overlay cards must be the same for the creation and execution 
runs. If line printer output is requested and the program card in the zero-zero overlay of 
the creation run is PROGRAM CREATE (INPUT, OUTPUT), the program card in the execution 
run must be identical. 

ONE-PASS CREATION AND EXECUTION 

It is possible to assemble a deck to create, run, and execute the program in one pass through 
the computer. Figure 5-6 shows such a run with a graphics common file named KCB and 
overlay file named SCR. The advantage of a one-pass run is that only one batch control point 
is required. 

CONVERSION FROM RUN FORTRAN TO FORTRAN EXTENDED 

If a graphics FTN job under SCOPE 3. 3 is to be run, replace the RUN(S) card with an FTN 
card and the CALL MAIN card with a CALL AEXEC card wherever they appear in the job 
deck. 
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A DATA statement that once read: 

DATA IBCD/40H CHOOSE ONE APPETIZER ,THEN HEADING 
1 AOH ENTREE ,THEN HEADING } 

should now read: 

DATA (IBCD(I),I=1,13,4)/40HCHOOSE ONE APPETIZER ,THEN HEADING 
1 40H ENTREE ,THEN HEADING / 

to fill words IBCD(l) through IBCD(8). 

While the RUN compiler accepts both ICOMP = 010000000000B and ICOMP = O010000000000, 
the EXTENDED compiler recognizes only B as an indication of an octal number. 

Under FORTRAN EXTENDED, the DIMENSION, COMMON, EQUIVALENCE, EXTERNAL, and 
type statements must appear before any statement function definition, DATA, NAMELIST, or 
executable statements in the program. DATA statements may appear with DIMENSION, 
COMMON, EQUIVALENCE, or type declarations under RUN as long as any arrays used in 
the DATA statement are dimensioned prior to the DATA statement. 

Under FORTRAN EXTENDED, a DO loop may not terminate on an IF statement (i. e. , "15 
IF(I.GT. 8) GO TO 200" may not follow "DO 15 1=1, 10"). 

IGS VERSION 1 TO VERSION 2 CONVERSION 

ICODE is sOOtfbb where "terminate to next reset" is a hardware capability which is used to 
turn an item off; it is not used to remove an item from the buffer. 

There is an assembly option available to convert files to local task files so that the user may 
subsequently convert them to permanent files. See the IGS Reference Manual for sample deck 
structures. 

Error messages and GIABRT messages are displayed on the 274 with the leftmost character 
at screen coordinates (-552, 1600) rather than (0, 0). 

The alphanumeric font coordinates are IH-332 to IH+332 and IV-172 to IV+172. 

The RETURN key on the alphanumeric keyboard may be used as an end-of-message character 
under Version 2 of IGS. 
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Next 
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PROGRAM TASK2 




primary 
overlay 

L 


7 
8 
9 
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• 

END 





Job card 

FORTRAN compiler call card 

SCOPE loader call card 

Task file creator routine call card 

End-of-record card 



OBJECT 



SOURCE 

6 
7 
8 
9 



Application executive main program 
call card 



Tasks to be filed 



End-of-record card 

Graphics COMMON file 
name parameter card 

Current overlay file name 
parameter card 

End-of-file card 



Figure 5-4. File Creation Run Deck 



FTN is available under Version 2 and CALL AEXEC is required under Version 2. 
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Control 

card 

record 



Program 
record 



Data 
records 



GRAPH35, PI 7, Tl 0000, CM40000, TPI . 

RUN (S) or FTN.t-* 

COMMON, OBJECT. -* 



LGO. -« 

RELEASE, OBJECT. 

EXIT. 

RELEASE, OBJECT. 

7 

8 
9 



Job card 

FORTRAN compiler call card 

Graphics COMMON file 
assignment card 

SCOPE loader call card 

Graphics COMMON file 
detaching card 

Error condition exit processing cards 



End-of-record card 



OVERLAY (SOURCE,0,0) 
PROGRAM EXECUTE 



CALL MAIN 
END 



or CALL AEXEC-i 
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OBJECT 
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Data cards for program execution 
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7 
8 
9 



• Application executive main program 
call card 

End-of-record card 



Graphics COMMON file 
name parameter card 

End-of-record card 



End-of-file card 



Figure 5-5. Execution Run Card Deck 



' FTN is available under Version 2 and CALL, AEXEC is required under Version 2. 
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RELEASE, OBJECT. 

7 
8 
9 



y 



Job card 

FORTRAN compiler call card 

SCOPE loader call card 

Task file creator routine call card 

Source file call card 

Error condition exit processing cards 
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End-of-record card 



End-of-file card 



Figure 5-6. Creation and Execution Deck 



' FTN is available under Version 2 and CALL AEXEC is required under Version 2. 
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REVIEW QUESTIONS 

Assume masks are set: 



1 


= 


ignore 


2 


= 


single pick 


4 


= 


string pick 


8 


= 


button pick 


16 


= 


marker 


NCON 




1 



MBYTE = 310 

1. The IGS routine to frame-scissor an arc is: 

a. GUARC 

b. GUARCG 

c. GIARC 

2. The parameters of the arc -scissoring routine which are named IH1, IV1, IH2, IV2 
are meaningless when: 

a. KSHOW=2 

b. KSHOW=l 

c. KSHOW=0 

3. In GULINE when KSHOW=2: 

a. The line is completely outside the frame. 

b. The line is completely within the frame. 

c. The line is partially within the frame and has been scissored. 

4. The name of the routine which displays a numeric font is: 

a. GFONTA 

b. GFONTN 

c. FONT 
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If a program requests 20 characters (two 10-character words) of input and only three 
are light -pen picked from the font or typed from the keyboard: 

a. The second word will be blank-filled. 

b. The first word will be blank-filled and the second word will have unpredictable 
contents. 

c. Neither word will be blank-filled. 
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CODING PROBLEMS 

Assume masks are set: 

1 = ignore 

2 = single pick 
4 = string pick 
8 = button pick 
16 = marker 
NCON = 1 
MBYTE = 310 

1. Display an alphanumeric font with center at (600, 600). 

2. Erase the alphanumeric font created in Problem 1. 

3. X and Y axes are displayed on the screen and we are calculating and plotting least 
squares fit lines through a set of points. The endpoints of the line have coordinates 
AX, AY and BX, BY. Before displaying the line, write the call that determines the 
points at which the line intersects the plot frame if it intersects the frame. The frame 
has center (750, 750) and upper right-hand corner (1000, 1000). 

4. Use GULINE to scissor a given line in a 14 by 14-inch square with center (0, 0). 
Display the scissored line as an ignore item. 

5. Use GUARC to scissor a circle with radius IRAD within a 14 by 14-inch square with 
center at (0, 0). Display the appropriate axes as ignore items. 

6. Frame-scissor an arc drawn on the grid of Problem 5. The center of the arc is at 
(0, 0) with endpoints at HI, VI and H2, V2. 

7. a. Display a light register of 10 characters with the left end of the underline at 

(-1000,700). 

b. Use GIEOM to designate ";" as the end-of-message character. 

c. Return up to nine characters and edit out the EOM character. 

d. Test for at least one character other than the EOM character. 

8. Display the characters returning in Problem 7 on the console beginning at (-35, 0). 

9. Suppose that the graphics console is equipped with a function keyboard. Use GIKYBD 
to associate an ID block with the function keyboard of graphics console 1. 
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10. Supply the application executive (AE) call which will be used to call a routine called 
CUBE from OVERLAY*!, 0). 
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ADDITIONAL CODING EXAMPLES 



This Appendix contains examples of code for creating light buttons, lines, circles, 
arcs, figures, and fonts. It also includes several complete programs. For most of the coding 
examples, assume that dimensioning has been performed; special cases will include dimension 
statements. 

CREATE A LIGHT BUTTON 

NBYTE = 

NAME = 8HDISPIAY 

CALL GURSET (-1500,0, 102B, IBUF, NBYTE, MBYTE) 

CALL GUAN (NAME, 8, IBUF, NBYTE, MBYTE) 

CALL GIDISP (NC0N,IBUF,NBYTE,IDDAD,1,1) 

The characters to be displayed are DISPLAY. GURSET is called to generate a reset sequence 
byte-stream which is placed in temporary user buffer IBUF. GUAN is called to generate the 
byte-stream which will cause the alphanumerics to be displayed. This byte- stream follows 
the reset sequence byte-stream in IBUF. Parameter NBYTE is automatically updated to 
reflect the number of bytes in IBUF. 

GIDISP is called to send a copy of the contents (NBYTE bytes) of IBUF to the 1700 series 
buffer translator. NBYTE is then set back to zero by the application program to initialize 
IBUF for the next byte-stream. The buffer translator calls the 1700 series graphics BGP 
which generates a display byte-stream and places it in the display controller. Once the byte- 
stream is in the display buffer, it is displayed. Note that parameters IDDT and IDDC in the 
call to GIDISP are both one. For IDDT=1 to be meaningful to the system (i. e. , when the 
button is picked with the light-pen by the operator, the system interprets IDDT for the action 
it is to perform), the call 

CALL GIMASK (NCON, 0, 1, 16+8) 

must be executed prior to the pick of the button. This call defines items with the IDDT desig- 
nation of 1 as buttons. The buttons so designated will have the marker mask set such that 
when the button is picked, it will blink (assuming that the button is not already blinking). 

There are several means by which alphanumeric input can be provided. The above example 
uses a dimensioned array. A data statement could be used instead, as in this example: 

COMMON/DATA/NAME ( 2 ) 

DATA NAME(I,I = 1,2)/8HDISPLAY,6HBUFFER) 
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An ENCODE and FORMAT statement could also be used to provide alphanumeric input. 

ENCODE (16,1, NAME) 

FORMAT (16HDISPIAY BUFFER) 

CREATE A LIGHT BUTTON-UNDER APPLICATION EXECUTIVE 

NBYTE = 

NAME = 8HDISPLAY 

NAME (2) = 4RDISP 

CALL GURSET (-1500,0, 102B,IBUF, NBYTE, MBYTE) 

CALL GUAN (NAME, 8, IBUF, NBYTE, MBYTE) 

CALL GIDISP (NCON, IBUF, NBYTE, IDDAD, 1, 1,NAME (2)) 

Note that the calls are essentially the same as those in the previous example. The only dif- 
ference is that in this call to GIDISP, an additional parameter is used to identify the task to 
be called by the application executive when the button is picked. To relate a task to the light 
button that initiates a branch to that task, the first four characters of the light button name 
are used as the task name; thus, if the button DISPLAY is picked and there has been a caU to 
AETSKR, the application executive brings task DISP into core from mass storage for 
execution. 

GENERATE AND DISPLAY A LINE-NOT FRAME-SCISSORED 

NBYTE = 

CALL GURSET (- 1000,0, 102B, IBUF, NBYTE, MBYTE) 

CALL GUSEGS (-1000,0, 1000,0, 1,0, IBUF, NBYTE, MBYTE) 

CALL GIDISP (NCON, IBUF, NBYTE, IDDAD, 2, 1,0,0) 

These calls will display a line from (-1000, 0) to (1000, 0). The line is solid, light-pen sensi- 
tive, and does not blink. 

A previous call to GIMASK was made for type 2 as follows: 

CALL GIMASK (NCON, 0, 2, 16+4) 

This call associates the marker mask with type 2 and makes all type 2 display items string 
pick items. 

Note that all ID block parameters are used. 

The user may wish to store items such as the item display address or bead address in the 
ID block. If, for instance, the display address for the line is in IDDAD, GIMOVE can be 
used to insert this display address into the ID block as follows: 

CALL GIMOVE (-0, -0, -0, IDDAD, 2, 1, 0, IDDAD) 
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The display address is now in the IDWB word of the ID block for that line. The display- 
address can be extracted from the block by GIFSID any time the line is picked. It is impor- 
tant to have access to the display addresses of the items if they are to be erased, copied, or 
have their ID blocks modified (as was the case above in the call to GIMOVE). 

If the data handler is used and a bead is formed for this line, the bead address could be 
placed in IDWA. It is usually more convenient to put the display address in the bead rather 
than in the ID block, but these decisions are up to the individual. 

GENERATE AND DISPLAY A FRAME-SCISSORED LINE 

NBYTE = 

CALL GULINE (0,0, 1000,1000,500. ,0. ,-600. ,-500. ,KSHOW,IHS,IVS,IHF,IVF) 

CALL GURSET (IHS, IVS, 102B, IBUF, NBYTE, MBYTE) 

CALL GUSEGS (IHS, IVS, IHF,IVF, 1,0, IBUF, NBYTE, MBYTE) 

CALL GIDISP (NCON, IBUF, NBYTE, ID IS PAD, 2, 2, 0,0) 

GULINE is called to set up the size and position of the frame for frame -scissoring. Floating- 
point coordinates for the beginning and end of the line are given in the call and converted 
by the system to fixed-point coordinates. Although not shown in this example, it is advisable 
to test KSHOW for equality to zero to check whether the described line can be displayed. If 
KSHOW=0, there is no reason to call GURSET, GUSEGS, and GIDISP. 

The following code will perform the check and skip to statement 2 if the line cannot be 
displayed: 

NBYTE = 

CALL GULINE (0,0, 1000, 1000,500. ,0. ,-600. ,-500. , KSHOW, IHS , IVS, IHF,IVF) 
IF (KSHOW .EQ. 0)GO TO 2 

CALL GURSET ( IHS, I VS, 10 2B, IBUF, NBYTE, MBYTE) 
CALL GUSEGS (IHS, IVS, IHF, I VF, 1,0, IBUF, NBYTE, MBYTE) 
CALL GIDISP (NCON,IBUF,NBYTE,IDISPAD,2,2,0,0) 
2 CONTINUE 

GENERATE AND DISPLAY A CIRCLE-NOT FRAME-SCISSORED 

NBYTE = 

CALL GURSET (0,0, 102B, IBUF, NBYTE, MBYTE) 

CALL GUARCG (1,0,0, 300, 0,300, 0,-0, IBUF, NBYTE, MBYTE) 

CALL GIDISP (NCON,IBUF,NBYTE,ICRCDSPD,2,3,0,0) 

This code generates a circle with solid line style. The center of the circle is displaced from 
the reset coordinates (0, 0) by 300 display grid units to the left because circles and arcs are 
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displayed in a counterclockwise manner from the initial point to the terminal point. Thus, 
the center of this circle is at (-300, 0). 

The reader should note that since all of the circle can be displayed on the display surface, 
parameter KSHOW is set to 1; the arc- scissoring routine GUARC was not used to make that 
determination. An example of arc -scissoring is given in the next paragraph. 

GENERATE AND DISPLAY A FRAME-SCISSORED CIRCLE 

NBYTE = 

DIMENSION IHS(5),IVS(5),IHF(5),IVF(5) 

?^ L T ?^ C ( °' °> 10°0, 1000, 0.,0. ,1125., 0., 1125., 0., KSHOW, IHC,IVC,IHS, I VS, 

IF (KSHOW .EQ. 0)GO TO 3 

CALL GURSET (IHS,IVS,102B,IBUF, NBYTE, MBYTE) 

CALL GUARCG (KSHOW, IHC,IVC,IHS,IVS,IHF,IVF,-0,IBUF, NBYTE .MBYTE) 
CALL GIDISP (NCON,IBUF,NBYTE,ICRCAD,2,4,0,6) 
3 CONTINUE 

Since it is possible to have a circle scissored into four segments and an arc into five seg- 
ments, arrays had to be dimensioned to accept the starting and ending points of the arc 
segments. The coordinates used in the call to GUARC are deliberately chosen to generate 
four arc segments for the subject circle. Since it is known in advance that four arc segments 
will be displayed, KSHOW is examined here for equality to zero as a formality; however, this 
is not often the case and the test for KSHOW should be made as a matter of good programming 
practice. 

The remainder of the code merely resets the CRT beam to the start of the first arc segment. 
GUARCG is called to generate the four arc segments, and GIDISP transfers the byte-stream 
from IBUF to the display buffer. 

GENERATE AND DISPLAY A 2-INCH SQUARE-NOT FRAME-SCISSORED 

NBYTE = 

CALL GURSET (0,0, 102B, IBUF, NBYTE,MBYTE) 

CALL GUSEGS (0,0, 400, 0.1,0, IBUF, NBYTE, MBYTE) 

CALL GUSEG (400,-400.1) 

CALL GUSEG (0,-400,1) 

CALL GUSEG (0,0,1) 

CALL GIDISP (NCON,IBUF,NBYTE,ISQDSPAD,2,6,0,0) 

This square starts at the origin of the scope display grid. The first line segment goes right 
2 inches, the second segment goes down 2 inches, the third goes left 2 inches, and the last 
is drawn up 2 inches to complete the square. 
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GENERATE AND DISPLAY A COLUMN OF FIVE HORIZONTAL LINES 

NBYTE = 

CALL GURSET (0,0, 102B,IBUF, NBYTE, MBYTE) 

CALL GUSEGS (0,0,400,0, 1,-0, IBUF, NBYTE, MBYTE) 

CALL GUSEG (0,-100,0) 

CALL GUSEG (400,-100,1) 

CALL GUSEG (0,-200,0) 

CALL GUSEG (400,-200.1) 

CALL GUSEG (0,-300,0) 

CALL GUSEG (400,-300,1) 

CALL GUSEG (0,-400,0) 

CALL GUSEG (400,-400,1) 

CALL GIDISP (NCON,IBUF,NBYTE,ILNDSPAD,2,7,0,0) 

The first line is drawn from the scope display grid origin to a point 2 inches to the right. 
The first call to GUSEG positions the beam for the next line. Note that the GUSEG call turns 
the beam off and nothing is displayed. The second call to GUSEG generates the byte- 
stream for the second of the five lines to be displayed. From this point it is a repetition of 
the first two calls to GUSEG until the entire byte-stream is generated. GIDISP is then called 
to transfer the byte- stream to the display buffer for subsequent display. 

An alternate method for generating the same five lines uses a call to GUSEGA. 

DIMENSION IH(10),IV(10),IBEAM(10) 

IH(1)=IH(3)= IH(5)=IH(7)=IH(9)=IV(1)=IV(2)=0 

IH(2)=IH(4)=IH(6)=IH(8)=IH(10)=400 

IV(3)=IV(4)=-100 

lV(5)=IV(6)=-200 

IV(7)=IV(8)=-300 

IV(9)=IV(10)=-400 

IBEAM(1)=IBEAM(3)=IBEAM(5)=IBEAM(7)=IBEAM(9)=1 

IBEAM(2)=IBEAM(4)=IBEAM(6)=IBEAM(8)=IBEAM(10)=0 

NBYTE = 

CALL GURSET ( IH, I V, 102B, IBUF, NBYTE, MBYTE) 

CALL GUSEGA (IH,IV,IBEAM,9,-0,IBUF,NBYTE,MBYTE) 

CALL GIDISP (NC0N, IBUF, NBYTE, ILNDSPAD, 2, 7,0,0) 

In this example, the single call to GUSEGA generates the byte- streams for all the line seg- 
ments by referring to the IH, IV, and IBEAM arrays. 

GENERATE AND DISPLAY A LINE AS A MACRO 

NBYTE = 

CALL GUSEGS (0,0, 400, 500, 1,-0, IBUF, NBYTE, MBYTE) 

CALL GIMAC (NCON, IBUF, NBYTE, MAD) 
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The above code generates the byte-stream for the line, transfers a copy of the byte-stream 
to the fixed address area of the display buffer, and returns a macro address in MAD. The 
line is not displayed at this time. To display the line, the following code is required. 

NBYTE = 

CALL GURSET (100, 200, 102B,IBUF, NBYTE, MBYTE) 

CALL GUMACG (MAD, 1,IBUF, NBYTE, MBYTE) 

CALL GIDISP (NCCN,IBUF,NBYTE,MACDSPAD,2,8,0,0) 

The call to GURSET determines where the macro is displayed. 

DISPLAY AN ID BLOCK RETURNED FROM A CALL TO GIFSID 

GIFSID is used to return the ID blocks of string pick items in the FETCH queue. This 
example shows the use of GIFSID in conjunction with calls to display the contents of the 
ID block. Assume that the proper calls to GIMASK have been made, the console operator 
has picked at least one string pick item and a button, and that this routine was entered after 
a GIBUT call or through an AETSKC or AETSKR call. 

DIMENSION IBCD (20) 
N = 1 
NBYTE = 

CALL GIFSID(NC0N,1,IT,IC,IA,IB,IH,IV) 
CALL GURSET (-1200. 1300, 102B,IBUF, NBYTE, MBYTE) 
ENCODE (49 ,30, IBCD) NC0N,IT,IC,IA,IB,IH,IV 
30 FORMAT (7HGIFSID(,3 (15, 1H, ) ,2(1X,R4, 1H, ) ,15, 1H, 15, 1H) ) 
CALL GUAN (IBCD, 49, IBUF, NBYTE, MBYTE) 
CALL GIDISP (NCON, IBUF, NBYTE , IDMESS , 2, 0,0,0) 

GIFSID is called to extract one string pick ID block and return it to IT, IC, IA, IH, and IV. 
GURSET is used to set the point at which the A/N display starts. The ENCODE and FORMAT 
statements assemble the indicated characters into array IBCD, which GUAN uses as input 
to generate the byte-stream for the display. GIDISP transfers the byte-stream to the dis- 
play buffer and appends the indicated ID block to the byte -stream. This display consists of 
the call to GIFSID with its calling and result parameters. 

MOVE A DISPLAY ITEM 

Assume that a line has been displayed as a display item and has its display address stored 
in IDSPAD(12). Further, it is required that the line be displayed at new coordinates 
IH>1000, IV = -400. It is coded as 

CALL GIMOVE (1000, -400, -0, IDSPAD(12)) 



A_6 44629300 Rev. D 



The ICODE value, -0, indicates that the ICODE already associated with the line is not to be 
changed. The call is truncated after IDSPAD(12), since the ID block for the line is also un- 
changed. 

The line could have been moved and its ID block changed by including the new ID parameters 
to replace the existing ones. Remember that the ID block cannot be expanded beyond the 
size already in existence for the line. For instance, if only parameters IDDT and IDDC were 
used in the call to GIDISP for this line, GIMOVE cannot be used to add ID parameters, such 
as IDWA or IDWB, since space has not been allocated for these parameters. 

COPY A DISPLAY ITEM 

This is similar to using GIMOVE except that a copy is moved and the original still exists. 
To copy the line described in the last example, use the code 

CALL GICOPY (IDSPADU2), NCON, 1000, 400, 106B, ICPYADD, IT, IC, IA, IB) 
A copy of the line with display address IDSPAD(12) will be displayed 4 inches higher on the 
scope and the copy will blink. The display address of the copy will be put in ICPYADD. 

ERASE A DISPLAY ITEM 

To erase the line made as a result of the call GICOPY that was just described, use the code 
CALL GIERAS(ICPYADD) 

ERASE A MACRO 

The programmer may recall that a macro is displayed in two steps: 

1. Generate the byte-stream and call GIMAC to put the byte-stream in the fixed- 
address area of the display buffer. The address of the macro is returned in an 
output parameter referred to as MAD. 

2. Generate a reset sequence with a call to GURSET; call GUMACG giving the MAD 
parameter. GUMACG will generate a calling sequence for that macro. Call 
GIDISP to transfer the byte- stream generated in this second step to the display 
buffer and the item is displayed. 

He now wishes to erase the macro from both the fixed- and floating- address areas of the 
display buffer. The procedure is inflexible because the calling sequence in the floating 
address area must be erased first, then the display item byte-stream from the fixed-address 
area. If the calling sequence remains while the macro is erased, the display jumps to a non- 
existent macro and the result is chaos. The following code will correctly erase a macro: 
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CALL GIERAS (ISBD) 
CALL GIMACE (MADD) 

ISBD Display address in the floating-address area for the calling sequence 

MADD Macro address in the fixed-address area 

To erase a specific display of a macro and still retain its byte- stream in the final address 
area, call GIERAS and not GIMACE. When a macro is erased with GIERAS, the area in the 
display buffer is not contracted. 

CREATING ALPHANUMERIC DISPLAY FONTS 

For certain applications, the programmer may wish to provide the console user with a dis- 
play font other than the two supplied in the 6000 series Basic Graphics Package (GFONTA 
and GFONTN). The following discussion covers some of the more important points that a 
programmer should consider when creating his own display font. 

FONT CHARACTER RECOGNITION 

The 1700 series Basic Graphics Package recognizes a sequence of display generation bytes 
followed by a one-word ID as a display font character. When the character is picked with 
the light-pen and GIANS has been called, the ID word is queued on an alphanumeric string 
so that it can be sent to the application program when a GIANE call occurs. Each 8-bit 
ID word in the 1700 package is an ASCII character and is converted to 6000 package display 
code before being sent to the 6000 series computer application program. 

Because of this processing, the application programmer can create font characters by 
supplying the one-word ASCII ID through a call to GUBYTE. The general form for GUBYTE 
is 

CALL GUBYTE (IBYTE, L, IBUF, NB YTE, MBYTE) 

IBYTE is the octal equivalent of the hexadecimal internal code for alphanumeric characters 
or the first word of an array. L is the number of consecutive words in IBYTE from which 
bytes are to be transferred. For example, the three calls 

CALL GURSET(IH,IV,ICODE, IBUF, NBYTE, MBYTE) 
CALL GUAN(1LA,1, IBUF, NBYTE, MBYTE) 
CALL GUBYTE(101B , 1 , IBUF, NBYTE ,MBYTE) 

create an alphanumeric font of one character, A, at screen coordinates EH and IV. The 
ASCII code for A is 101 „. 

o 
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The call 

CALL GIDISP(NCON, IBUF, NBYTE, IDDAD, -0) 
then displays this one character font. After the font appears on the screen, the call 

CALL GIANS (NCON, 10, HI, IV1) 
creates a light register at screen coordinates IH1 and IVl; this register can contain up to 
10 of the As, if the character is picked that many times. 

If the character A is picked once and GIANE is called, the parameters returned to the call 
will be: 

NC =1 

IB CD = Abbbbbbbbb 

where the letter b indicates a blank. 

SPECIAL CHARACTERS 

Two special characters are defined for the 1700 package. These two characters, backspace 
and clear, allow the console operator to remove characters which have been queued since 
the call to GIANS and before the next call to GIANE occurs. 

BACKSPACE 

Any display followed by a one-word ID of 137B is defined as a backspace character. 
When such a character is picked with the light-pen, the last picked character in the light 
register is erased from the display and the underline is restored; the ID of the erased 
character is also removed from the buffer or queued alphanumeric information. 

CLEAR 

Any display followed by a one-word ID or 177B is defined as a clear character. When 
such a character is picked with the light-pen, all of the characters currently in the 
light register are erased and the entire underline is restored; in addition, the IDs for all 
of the erased characters are removed from the buffer of queued alphanumeric information. 

Backspace and clear have no other effect on alphanumeric picking. 

RESET SEQUENCES 

When a GURSET call is used in the definition of a font character, the ICODE s bit (bit 2 ) 
must be set. The s bit of the reset sequence is the enable light-pen bit; if it is not set, the 
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character's ID word is not read when a pick is made, and the character consequently cannot 
be entered into the light register or queued for 6000 series computer processing. 

A font character can be generated without a reset sequence by using a GUAN call with NC 
set equal to one, but a no-operation instruction must precede the GUAN call in the character's 
IBUF. This no-operation may be supplied by a GUBYTE call of one byte, where the byte is 
a positive zero value. 

CONSERVING ID WORD SPACE 

The ID words IDDT, IDDC, IDWA, and IDWB of the GIDISP call or calls which display font 
characters need not be referenced; the 1744 Buffer space they normally occupy can be con- 
served by truncating the parameter list with a closing or right parenthesis after IDDAD. 

DYNAMIC ADDITION OF CHARACTERS 

Characters may be added to an existing console display font by successive calls to GIDISP 
at any time. Duplicates of the same character, i. e. , characters with the same ASCII code 
ID words, may be present in a font. 

SAMPLE FONT CREATION ROUTINES 

The following subroutine creates a display font containing 

0123456789X 

SUBROUTINE NFONT (NCON, IBUF, NBYTE, MB YTE,IDDAD) 

DIMENSION IBCD(IO) 

DATA (IBCD(I),I = 1, 10)/1LO,1L1, 1L2, 1L3,1L4, 1L5, 1L6, 1L7, 1L8, 1L9/ 

CALL GURSET (0,-600, 103B, IBUF, NBYTE, 3 10) 

IC0N1 = 60B 

IC0N2 = 7 IB 

DO 1 I = IC0N1,IC0N2 

J = I -57B 

CALL GUBYTE (0,1, IBUF, NBYTE, MBYTE) 

C THE PRECEDING CALL PROVIDES A NO-OP BEFORE EACH GUAN CALL TO 
C GENERATE A CHARACTER AND IS NECESSARY ONLY WHEN EACH CHARACTER 
C IS GENERATED BY A SEPARATE GUAN CALL 

CALL GUAN (IBCD(J), 1, IBUF, NBYTE, MBYTE) 

C THE PRECEDING CALL GENERATES ONE OF THE FONT CHARACTERS 
CALL GUBYTE (I, 1, IBUF, NBYTE, MBYTE) 

C THE FOLLOWING CALL PROVIDES SPACING BETWEEN CHARACTERS AND 
C COULD BE REPLACED BY A GURSET CALL 
1 CALL GUAN (1L ,1, IBUF, NBYTE, MBYTE) 

CALL GUAN (2L ,2, IBUF, NBYTE, MBYTE) 

CALL GUBYTE (0, 1, IBUF, NBYTE, MBYTE) 

CALL GUAN (1LX, 1, IBUF, NBYTE, MBYTE) 

CALL GUBYTE (130B, 1, IBUF, NBYTE, MBYTE) 
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C THE THREE PRECEDING CALLS CREATE AND IDENTIFY THE CHARACTER X 
C AS AN END-OF-MESSAGE CHARACTER FOR USE IN GIEOM ASSIGNMENT 
C THE FOLLOWING CALL DISPLAYS THE FONT 

CALL GIDISP (NCON, IBUF, NBYTE, IDDAD, -0) 

RETURN 

END 

The programmer can also create display font characters of any size he wishes; he need not 
use the size characters that are defined by the 1700 Basic Graphics Package alphanumeric 
macros. For example, the three following calls create a circle with a center at IHC and 
IVC, and an initial /termination point at IH and IV. This circle is queued as an alphanumeric 
O when picked with the light-pen. 

CALL GURSET (IH,IV, ICODE, IBUF, NBYTE, MBYTE) 

CALL GUARCG (1,IHC,IVC,IH, IV, IH,IV, IBUF, NBYTE, MBYTE) 

CALL GUBYTE (117B,1, IBUF, NBYTE, MBYTE) 

Note that the ASCII code equivalent of O is 117B (4F 16 ). 

The programmer can create a true/ false font with coding like the following: 

CALL GURSET (IH1, IV1, ICODE, IBUF, NBYTE, MBYTE) 
CALL GUAN (4HTRUE, 4, IBUF, NBYTE, MBYTE) 
CALL GUBYTE (124B, 1, IBUF, NBYTE, MBYTE) 

C THE PRECEDING CALLS CREATE THE WORD TRUE BEGINNING AT IH1/IV1 
C AND QUEUE AN ALPHANUMERIC T (=124B) WHEN IT IS PICKED 

CALL GURSET (IH2, IV2, ICODE, IBUF, NBYTE. MBYTE) 

CALL GUAN (5HFALSE, 5, IBUF, NBYTE, MBYTE) 

CALL GUBYTE (106B, 1, IBUF, NBYTE, MBYTE) 

C THE PRECEDING 3 CALLS CREATE THE WORD FALSE BEGINNING AT IH2/IV2 
C AND QUEUE AN ALPHANUMERIC F (=106B) WHEN IT IS PICKED 

STAR OF DAVID PROGRAM t 

The following printout lists all of the cards needed for the file creation and execution runs 
of a simple graphics job. This job consists of one short primary overlay that draws a star 
and a square at one console, then creates two light buttons. The console user is informed 
that the square is supposed to be within the star; he then picks the proper button to center 
the square within the star, and the figure is moved. If the button he picks is invalid, he 
receives a message and the job aborts. 



^See page A-61 for a different approach to the Star of David problem. 
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CARD SEQUENCE FOR GRAPHICS FILE CREATION 



XMPL,P37,T1000,CM60000. 

RUN(S) 

LGO. 

AEFILE. 



OVERLAY (SCR, 0,0) 
PROGRAM CREATE 
CALL MAIN 
STOP 

END 

OVERLAY(l.O) 
PROGRAM LITTLE 

DIMENSION IBUF(64).IBCD(13).IBB(13) 

DATA I6CD(1)/40HSUPPOSED TO BE A SQUARE INSIDE A STAR 
DATA(IBCD(I)» 1=5.11. 2)/20HMOV£ SQUARE LEFT * 
120HMOVE SQUARE UP .20HMOVE SQUARE DOWN » 
120HM0VE SQUARE RIGHT / 
DATA IBCD(13)/10HWRONG IDDT/ 

DATA ( IBB (K ) »K=1 »9»2) /20HRELEASE *20HCHECK 

1 .20HRESTART .20HVERY GOOD » 

120HTRY AGAIN / 

NC0N=9 
C CONNECT CONSOLE 

CALL GICNJB(NCON) 
C SET ITEM MASKS 
DO 10 1=2.5 
IDDT5=2**(I-1) 
IMASK=IDDTS 
10 CALL GIMASMNCON.-0.I0DTS.IMASK) 
C SET DISPLAY CONSTANTS 
ICODE=103B 
ISTYLE=7777B 
MBYTE=310 
NBYTE=0 
C START DRAWING SQUARE 

CALL GURSET (-1400. 0.3B.IBUF.NBYTE. MBYTE) 
CALL GUSEGK-1400.0.ISTYLE.IBUF.NBYTE.MBYTE) 
CALL GUSEG(-1200.200»0) 
CALL GUSEG(-1200, -200.1) 
CALL GUSEG<-1600*-200»1) 
CALL GUSEG(-1600, 200.1) 
CALL GUSEG(-1200.200.1) 
C DISPLAY SQUARE AS A SINGLE PICK ITEM 

CALL GIDISP(NC0N»I8UF.NBYTE»IDRSV»2.1> 
C DRAW STAR OF DAVID (TWO TRIANGLES) 

CALL GURSET (-500 »300 t ICODE, IBUF»NBYTE, MBYTE) 
CALL GUSEGI (-500.300. ISTYLE.IBUF.NBYTE.MBYTE) 
CALL GUSEG(500.300,1) 
CALL GUSEG(0, -600.1) 
CALL GUSEG(-500«300.1) 
CALL GUSEG(-500»-300.0) 
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C DRAW SECOND TRIANGLE 

CALL GUSEG(500»-300»1> 

CALL GUSEG(0»600»1) 

CALL GUSEG(-500»-300»l) 
C DISPLAY STAR AS STRING PICK i*ITH MARKER MASK SET 

CALL GIDISP<NC0N»IBUF»NBYTE,IDDAD»24B»2) 
C LABEL THE FIGURES 

CALL GURSET(-744»1400»3B»IBUF «NBYTE»MBYTE) 

CALL GUAN(62HM0VE THE SQUARE INTO THE STAR AND CHECK IF IT IS IN T 
1HE CENTER»62»IBUF»NBYTE»MBYTE) 

CALL GIDISP(NC0N»IBUF»NBYTE»IDDAD»1»3) 
C MAKE FOUR BUTTON CHOICES 

DO 20 J=5*ll»2 

IF(J.EQ.5) Iri=-1200 

IF(J.E0.7) IH=-600 

IF(J.EQ.9) IH=0 

IF(J.EQ.ll) IH=600 

CALL GURSET(IH,-900,IC0DE.IBUF»NBYTE»MBYTE) 

CALL GUAN(IBCDtJ) ,20» IBUF.NBYTE.MBYTE) 
20 CALL GIDISP(NC0N»IBUF*NBYTE»IDDAD»6»J) 

DO 52 N=13»21»2 

IDDT=8 

I\/=-1200 

IFCN.EQ.13) IH=-105 

IF(N.EQ.13)IV=1800 

IF<N.EG.15)IH=-96 

IF(N.EQ.17)IH=96 

1F(N.LT.19)G0 TO 26 

IH=-175 

I\/ = 1200 

IC0DE=1B 

IOOT=l 
26 M=N-12 

CALL GURSETdH. IV » ICODE, IBUF»NBYTE,MBYTE) 

CALL GUANUBB(M) *9» IBUF»NBYTE»MBYTE) 

CALL GIDISP(NCON»IBUF,NBYTE*IDDAD*IDDT.N) 

M=0 

IH=-14UU 

IV=0 

IF(N.E0.19) IGOOD=IDDAD 

IF(N.EQ.21) ITRY=IODAD 
52 CONTINUE 

CALL GITCON<NCON»IH»IV> 

CALL GITIMVCNCONt IDRSV) 
36 CALL GIBUT(0»NCON»IDDT*IDDC) 

IF(IDDC.LT.19.AND.IDDC.GT.3)G0 TO 43 

CALL GIABRT<NCON.10HWRONG PICK. 10) 

STOP 

43 L=(IDDC-3 )/2 

CALL GITCOF(NCON»IH»IV) 

GO TO(44»45*46»47»48»49»60)L 

44 lH=IH-50 
GO TO 50 

45 1V=IV*50 
GO TO 50 

46 IV=IV-50 
GO TO 50 

47 IH=IH*50 
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50 CALL GIMOVE(IH,IV»103B,IDRSV) 

CALL GITCON(NCON.IH»IV) 

IF(M) 55.36,55 
55 CALL GIMOVE(-2040,2040,1B»IGOOD) 

CALL GIMOVE(-2040,-2040»1B,ITRY) 

M=0 

GO TO 36 
49 M=l 

CALL GITCON(NCON,IH,IV) 

IF(IABS(IH).LT.16.AND.IABS(IV).LT.16)G0 TO 62 

CALL GIMOVE<-108,1700,7B»ITRY> 

CALL GIMOVE (-2040, -2040, IB, IGOOD) 

GO TO 36 
62 CALL GIMOVE(-108,1200,7B,IGOOD) 

CALL GIMOVE(-2040»-2040»1B,ITRY) 

GO TO 36 
60 IH=-1400 

IV=0 

GO TO 50 
48 CALL GIABRT(NC0N,12HJ08 RELEASED, 12) 

C RELEASE CONSOLE 
CALL GICNRL(NCON) 
STOP 
END 



Two file names cause MAIN to recognize the file creation job: 



XMPL 
SCR 



CARD SEQUENCE FOR GRAPHICS EXECUTION JOB 



LPMX, F37, T200, CM60000. 

COMMON, XMPL. 

RUN(S) 

LGO. 

RELEASE, XMPL. 

EXIT. 

RELEASE, XMPL. 



OVERLAY (SCR, 0,0) 

PROGRAM EXECUTE 

CALL MAIN 

STOP 

END 
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One file name causes MAIN to recognize the file execution job: 

XMPL 

PROGRAM CLASDEM 

The example given below consists of a program which sets the ID processor mask, generates 
a line and a circle with subroutines, and generates four light buttons: one to display a line, 
one to display a circle, one to erase a picked line or circle, and one to terminate the appli- 
cation. Coordinate information for display item position will be furnished by calls to the 
tracking cross position fetch routine GITCOF. 

The console number, NCON, is input from a card and stored in common location NCON. The 
program is designed to terminate automatically when 10 components have been created. 

The program starts by reading a card for the console number and storing it in common 
location NCON. Console NCON is assigned to the job with a call to GICNJB. 

The byte- stream for the line is generated and stored in IBUF with a call to GUSEGS; it is 
made a macro and stored in the macro area of the display buffer with a call to GIMAC. The 
macro address is returned in MAD(l) 

The byte-stream for the circle is generated and stored in IBUF with a call to GUARCG; it is 
made a macro and stored in the macro area of the display buffer with a call to GIMAC. The 
macro address is returned in MAD(2). The macro addresses are needed when the line or 
circle is to be displayed. The MAD parameters are used in calls to GUMACG which gener- 
ates the macro call. The macro call provides access to the line and circle byte- streams 
for display. 

Once the byte-streams are taken care of, the next step is to set up the ID processor mask 
for the light buttons and components. This is done with calls to GIMASK. Light buttons are 
designated type 1 and set to blink when picked as operator feedback. Lines and circles 
designated type 2 are single pick items set to blink when picked. This means that if more 
than one line or circle is picked for erasure, only the last one picked has its ID block re- 
tained; the preceding ID blocks are deleted. 

The next step is to create and display four light buttons: 

• LINE 

• CRCL 
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• ERAS 

• OVER 

The first three light buttons call subroutines LINE, CIRCLE, and ERASE, respectively. 
OVER calls GICNRL to terminate the application. 

The user at this time sees the light buttons displayed along with the tracking cross. He 
responds by picking up the cross with the light-pen and moves the cross to where he wants 
a line or circle to be displayed. His next step is to select either the LINE or CRCL light 
button to indicate whether he wants a line or circle to be displayed at the tracking cross 
position. 

GIBUT has been called and is waiting for a light button pick. Once the user has responded, 
the ID block of the selected light button is returned; a computed GO TO is executed, based on 
the IDDC parameter indicating the particular light button selected. It is safe to assume that 
either LINE or CRCL was selected since there is nothing to erase and it is not likely that the 
operator would terminate at this time. The following paragraphs analyze the functions of 
subroutines LINE, CIRCLE, and ERASE which are called as a result of the execution of the 
computed GO TO. 

SUBROUTINE LINE 

LINE retrieves the horizontal and vertical coordinates of the tracking cross with a call to 
GITCOF. The coordinates are returned in ITH and ITV. A reset sequence is created using 
ITH and ITV for the position at which the line will start. This is followed with a call to 
GUMACG to generate the macro call, which provides access to the line byte-stream in the 
macro area of buffer memory. Note that the macro address given in the call is the one for 
the line (MAD(l)). 

The bytes for the reset sequence and the subroutine call are temporarily stored in IBUF. 
Now GIDISP is called to transfer NBYTE bytes of IBUF to the display item area of buffer 
memory. The display address is stored in IDDAD(K + 1) to enable the operator to erase the 
line if he desires. Note that the ID block contains the line type (2), the line code (1), and 
K + 1. K + 1 will be used in subroutine ERASE to determine which particular display item 
is to be erased. K is then incremented to be ready for the next item to be displayed. K is 
also tested for equality to 11 to see if all 10 locations of IDDAD have been used. If not, the 
program continues. If all the locations have been used, GICNRL is called to terminate the 
application. 
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SUBROUTINE CIRCLE 

CIRCLE is identical to LINE except that MAD(2) is used instead of MAD(l) and the circle 
code (2) is used in the call to GIDISP instead of code (1) (as was the case with LINE). Both 
LINE and CIRCLE could easily be combined into one routine; however, the redundancy re- 
inforces the learning process. 

SUBROUTINE ERASE 

ERASE fetches the ID block of the line or circle picked by the operator for erasure. IDWA 
contains the K parameter set into the ID block by GIDISP when the subroutine call sequence 
was generated. GIERAS is then called to erase the line or circle whose display address is 
found in IDDAD(IDWA), where IDWA once again is the K parameter. This does not remove 
the byte- stream from the macro area; however, it is referenced from the display item area. 
A printout of these routines is shown below. 



O0QO03 
000003 
O00004 



OVERLAY (SCR, 0,0) 

PROGRAM M(lNPUTtOUTPUT) 

COMMON IBUF (100) » MAO (?) » IODAO (l6>» NBYTE, MBYTE, NCON, K 

CALL MAIN 

END 



OVERLAY (1,0) 



000003 



nOQ003 
000011 
000011 

666oi3 

000014 
000015 



c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 



PROGRAM CLASDEM 

COMMON IBUF (100>, MAO (2), TDDAD (10), NBYTE, MBYTE, NCON, K 

MAD(l) LINE MACRO ADDRESS 
MAO (2) CIRCLE MACRO ADDRESS 

IDDAD(I) TO IDDAD(lO) DISPLAY ITEM ADDRESS 

DISPLAY ITEM BLOCK 

W0R01 DISPLAY TYPE 

1= BUTTON 

2= SINGLE PICK 
W0RD2 DISPLAY ITEM 

1* LINE 

gss CIRCLF 
W0RD3 DISPLAY ITEM MaTRIX ADDRESS 

SIGN ON CONSOLE 
READ It NCON 
1 FORMAT (12) 

CALL GICNJB (NCON) 
MBYTE * 310 
NBYTE = 
K a 
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C GENERATE LINE MACRO 

000016 CALL GUSEGS (0» 0, 600, 0, 1, -Of I8UF, NBYTE, MBYTE) 

000026 CALL GIMaC (NCON, IBUF,NIrYTE»MaD ( 1 > ) 

000031 KBYTE = 

C GENERATE CIRCLE MACRO 

OQ0032 CALL GUARCG (1»6»0»300» 0» 300» 0. -0» IBUF, NBYTE» MBYTE) 

000045 CALL GIMaC <NC0N» lBUF,NRYTE»M A D<2) ) 

000050 NBYTE = 

C SET BUTTON MASK 

000051 CALL GIMASK (NCON, -0* 1 , 16*8) 
C SET SINGLE PICK MASK 

000056 CALL GIMASK <NCON»-0»?» i**2) 

C DISPLAY LINE BUTTON 

000063 CALL GURSET (Q. -1500* 102B, IBUF, NBYTE, MBYTE) 

000067 CALL GUAN (4HLINE* 4, IB'IF, NBYTE, MfiYTE) 

000073 CALL GIOISP (NCON, IBUF, NBYTE, IDA, 1, 1) 

000077 NBYTE « 

C DISPLAY CIRCLE BUTTON 

000100 CALL GURSET (0» -1600- I02B, IBUF, NBYTE, MBYTE) 

000104 CALL GUAN (4HCRCL, 4, IBUF, NBYTE, MBYTE) 

OO0I10 CALL GIDISP (NCON, IBUF, NBYTE, IDA, 1, 2) 

666114 NBYTE = 

C DISPLAY ERASE BUTTON 

566115 CALL GURSET (o» -1700, 1028, IBUF, NBYTE, MBYTE) 

?00121 CALL GUAN (4HFRAS, 4, IRIJF, NBYTE, MBYTE) 

000125 CALL GIDISP (NCON, IBUF, NBYTE, IDA, 1, 3) 

000131 NBYTE » 

C DISPLAY OVER BUTTON 

000132 CALL GURSET <0» -1800* I02B, IBUF, NBYTE, MBYTE) 
000136 CALL GUAN <4H0VERi 4, IRUF, NBYTE, MBYTE) 



000142 CALL GIDISP (MCON, IBUF, NBYTE, IDA, 1, 4) 

000146 NBYTF = 

C TURN ON TRACKING CROSS 

n00l*7 2 CALL GITCON (NCON»0»0) 

C WAIT TO PICK BUTTON 
000152 CALL GIBUT (Q»NCON, IOOT, TODC) 

000155 GO TO (3, 4, 5, 6), lone 

000165 3 CALL LINE 

000166 GO To 2 

000167 4 CALL CIRCLE 

000170 GO To 2 

000171 5 CALL ERASE 

000172 GO To 2 

C JOB DONE, RELEASE CONSOLE 

000173 6 CALL GICNRL (NcOiM) 
000175 END 
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SUBROUTINE CIRCLE 

C DISPLAY CIRCLE 

§00002 DIMENSION MESSJ4) 

000002 DATA MESS/40H TOO MANY FIGURES. CONSOLE RELEASED / 
200002 COMMON IBUF (l66)» MAO (2) , IDOAO (l6)» NBYTE. MBYTE, NCON, K 
QQQ002 NBYTE = 

000003 CALL 6ITCOF (NCON. ITH, |TV) 

000006 CALL GURSET (ITH, ITV, 102B» IBUF, NBYTE, MBYTE) 

000012 CALL GUMACG(MA0(2)»1»IBUF,NBYTE»MBYTE) 

000016 CALL GIDISP (NcON, IrUF, NfiYTE* IDDAD <K*1), 2, 2, K*l> 

000027 K a K*l 

000031 IF <K.EQ.11> It 2 

C TOO MANY FIGURES. RELEaSF CONSOLE 
566635 1 NBYTE-0 

000036 CALL GURSET (0,-1*00, ?,IBuF, NBYTE, MBYTE) 

566642 CALL 6UAN (MESS. 35. IBUF.N6YTE. MBYTE) 

000046 CALL GIOISP(NcON,IbUF»NbYTE»IODA0) 

666651 CALL GICNRL (NCON) 

002053 STOP 

000055 2 RETURN 

000056 END 

SUBROUTINE LINE 

C DISPLAY LINE 

QQQ002 COMMON IBUF <100>. MAD (2> , IODAD (10) t NBYTE, MBYTE, NCON, K 

000002 DIMENSION MESSJ4) 

666002 DATA MESS/40H TOO MANY FIGURES. CONSOLE RELEASED / 

666002 NBYTE ■ 

090003 CALL GITCOF (NCON» ITH, |TV) 

000006 CALL GURSET (ITH, ITV, 102B, IBUF, NBYTE, MBYTE) 

6Q9012 CALL GUMACG(MAD(l)fltIBUF,NBYTEtMBYTE) 

000016 CALL GIDISP (NcON, IbUF, NfiYTE* IDOAD (K+l), 2, 1, K*l) 

000027 K « K*l 

000031 IF (K.EQ.ll) 1, 2 

C TOO MANY FIGURES. RELEASE CONSOLE 
909035 1 NBYTE *0 

000036 CALL GURSET (0,-1400, 2.IBUF,NBYTE»MBYTE) 

000042 CALL GlJAN (MESS.35, IBUF, NBYTE, MBYTE) 

666646 CALL GIOlSPtNCON, IBUF, NBYTE, IDDAO) 

000051 CALL GICNRL (NcON) 

000053 STOP 

000055 2 RETURN 

000056 END 

SUBROUTINE ERASE 

C CLEAR DISPLAY ITEM 

OOOOO? COMMON IBUF (100), MAD (?). IDDAO (l6>» NBYTE* MBYTE, NCON, K 

C READ OISPLAY ifEM ID BLOCK PICKED 

009002 CALL GIFIO (NCON, IDOT, TODC, IDWA) 

000005 CALL GIERAS (IODAD(IDWA) ) 

666010 RETURN 

666011 ENO 



XMPL 
SCR 



44629300 Rev. D 



A-19 



CIRCUIT APPLICATION DESCRIPTION 

The CIRCUIT application permits a display console operator to design simple circuits con- 
sisting of nodes (connecting points), resistors, capacitors, and shorts. The application is 
intended for classroom use to guide students in the use of the 6000/1700 series IGS routines. 

The application currently consists of five tasks. The fourth task can be modified to provide 
the capability to enter values and labels from a font for components in the circuit. The 
fifth task calls GIABRT for a voluntary abort. 

Some conventions have been imposed to simplify the coding. The most important are: 
Circuits are always created from left to right and from top to bottom. 






If a component is to be added in a position already occupied by a component, 
the first component is deleted. 

A maximum of four components can be tied to any single node. 

The maximum number of nodes is limited to 25. 

If a node is erased, all components tied to that node are likewise erased. 

The first node should not be picked to be erased. 



Table A-l describes the tasks and their associated subroutines. 



TABLE A-l. CIRCUIT TASK BREAKDOWN 



Task 


Main Program 


Subroutines 


CRKT 


CIRCUIT 


NMAKE 


SCHNDHV ERRMESS 


GETBEAD 


MAKE 


MAKE 


CHECK 
GETBEAD 


ERRMESS SCHNDHV 
DELCOMP 


NMAKE 


ERAS 


ERASE 


DELCOMP 


ERRMESS 





The application relies heavily on the data handler to store all the relational information 
required. Beads are formed for all nodes and components. Node beads are strung to imple- 
ment a node search algorithm in the application. The bead address of the first node created 
is stored in COMMON as a state variable (ISTATEV) for the node bead string. Display 
addresses for all nodes and components are stored in the beads as well. (See Appendix B 
for a discussion of the data handler dump of this program. ) 
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There is a COMMON for this application, but it is adequately presented in the listing and 
further discussion is unnecessary. 

TASK CRKT 

The initial task, CRKT, generates the byte-streams for all the components and enters them 
into the fixed address area of the display buffer as macros. It also displays nine light but- 
tons and the first node. 

The light buttons are: 

HORS Horizontal Resistor 

VERS Vertical Resistor 

HOCP Horizontal Capacitor 

VECP Vertical Capacitor 

HOST Horizontal Short 

VEST Vertical Short 

ERAS Erase 

ENVL Enter Value and Label 

DONE Voluntary Abort 

There is no significance to the fact that all light buttons are four characters. They could 
have been spelled out in full. 

CRKT also initializes the data handler for tasks MAKE and ERAS. Once complete, CKRT 
is never re-entered. Further, there is no access to CRKT except at sign-on time. 

TASK MAKE 

MAKE is the main program of the task. It determines which action the display console oper- 
ator is requesting. 

When the first six light buttons are displayed with GIDISP, the program name, MAKE, is 
stored in the IDWA parameter. If one of these light buttons is picked, the program MAKE is 
entered. MAKE calls AELBUT to return the IDDT and IDDC of the button. AELBUT renames 
IDDC as ICOD. 

Assume the 274 operator picked the initial node (the only one displayed at this time) and the 
HORS (horizontal resistor) light button. The ID block associated with this button indicates an 
IDDT of 1 and an IDDC = ICOD = 1. 
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The nodes are displayed as single pick items; so to determine whether a node was picked, the 
user must call GIFID. To determine which component is to be attached to the node, the user 
calls GETBEAD where comparisons are made with component codes. If there is no match, 
ERRMESS displays the message NO NODE PICKED TRY AGAIN. This check prevents 
attaching a component to a component. 

If there is a match, the user calls CHECK to be sure no component occupies the space where 
this component is to be displayed. CHECK also calls DMGET to retrieve the number of leads 
(IV AL) tied to the subject node. The user next determines whether a horizontal component or 
a vertical component is being considered and sets I so the proper lead will be added. If a 
horizontal component is requested, I = 7 to extract the right element bead address from the 
seventh word in the node bead. If the component is vertical, I = 8 to extract the down-element 
bead address from the eighth word in the node bead. (Refer to bead breakdowns in GETBEAD. ) 

When MAYBE contains a bead address, a component is to be deleted. For the case assumed 
above, MAYBE = 0. The number of beads tied to the node is also zero; therefore, IFLG is 
set to 1 to indicate that a terminal node must be created. IV AL is incremented by 1 to reflect 
this new bead. Return to MAKE. 

MAKE calls GETBEAD with ICOD = 1 and GETBEAD renames ICOD as ICOMCOD. ICOMCOD 
is 1 in this case so a computed GO TO directs a call to DMGTBD. DMGTBD picks up a bead 
five words long. The code (1) for a horizontal resistor is stored in the first word. The 
"from node" bead address is stored in the second word as a pointer. IBDA is set to the com- 
ponent's bead address before the return to MAKE. Note that the display address of the 
resistor is not stored because it is not yet defined. 

GURSET is called from MAKE to set the coordinates for the starting point of the component 
to be displayed. The strike coordinates on the node returned from GIFID are used. GURSET 
specifies a medium light intensity with ICODE = 2 . The beads displayed are insensitive to 
light pen strikes. This is significant because when a node is picked, only the node — not the 
leads of the components tied to that node — should be pickable. To ensure strikes on nodes, 
the first and last 75 dgus of the beads on any component are not pickable. 

GUMACG generates the macro calling sequence for the display of the element identified by 
MAD(ICOD). GIDISP then adds IDDT, IDDC, and IDWA to the component's byte stream. 
IDWA is used to store the component's bead address so the program can access node pointers 
and the component's display address. 

IFLG is tested to see if a terminating node is required for the component. Since CHECK set 
IFLG to 1, a terminating node is required. 
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NMAKE creates the terminal node 400 dgus to the right of the starting node since this com- 
ponent is a horizontal resistor. NMAKE tests ISTATEV for a zero value. ISTATEV is zero 
at sign-on; thereafter it contains the bead address of the first node. In the assumed case, 
ISTATEV is non-zero so SCHNDHV is called to check for a node at (INH, INV). 

The coordinates of the node are compared with those of beads in a string. If a match occurs, 
IBDB = ISTATEV and IMAKE = 1 which indicates that a node exists. If no match occurs, 
IMAKE = 0. Program control returns to NMAKE. 

NMAKE checks for IMAKE = 0. If it is 0, GETBEAD gets a bead for the terminal node. 
DMSET then puts the next node pointer into the next-to-last bead created. The bead address 
of the last bead created is stored in ISTLSBD. 

Then the macro for the terminal node is generated with the display address stored in word 4 
of its bead and the number of beads set to 1. The node count (NDCNT) is increased by 1 and 
it is compared against the maximum number of nodes (25). TOO MANY NODES is displayed 
by ERRMESS if NDCNT = 25. 

MAKE is entered and loads the rest of the pointers in the node and component beads. 

AETSKR is called and the idle task is re-entered to wait for the next light button pick. 

TASK ERAS 

The main program of this task is ERAS. Task ERAS deletes the picked component or node 
and releases the associated bead or beads. Further, it removes pointers in other node and /or 
component beads for the deleted node and/or components. If the item to be deleted is a node, 
all components tied to it are deleted as well. 

If the first node was picked, an error message is displayed. If any other node was picked, it 
is erased and its bead is released. The components attached to it are erased. 

For example, ICODE = 3 (horizontal capacitor) and NOPE = 1. In subroutine DELCOMP, a 
call to DMGET displays the address of the capacitor. GIERAS erases the capacitor. KICK 
and ICOD were passed to DELCOMP through COMMON. The "into" node bead address is 
obtained from word 3 of the capacitor bead and the number of beads in the node is decreased 
by one. The decreased number of beads is stored, the left element pointer in the node bead 
» is cleared, and the capacitor bead released to free storage. The number of beads in the 

"from" node are reduced and the pointer to the capacitor removed. Return to ERASE; reset 
NOPE to zero. Exit with a call to AETSKR. 
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*CONTROL CARDS 

RUN(S) 

LGO. 

AEFILE 

SCR. 

RELEASE (CIRXXX) 

EXIT. 

DMP(177777) 

RELEASE (CIRXXX) 

7/8/9 



COVERLAY (0,0) 

OVERLAY(SCR,0,0) 
PROGRAM CREATE 

COMMON NCON,IBUF(100),MAD(60),IBDA,IBDB,ISTATEV,ISTLSBD,IMAKE,POIN 
1TER(4),IFLG,NDCNT,NDMAX,MBYTE,NBYTE,IC0D,K,IBD,IPV,IPH,IA,INV,INH, 
2NOPE,KICK,ICOMP(l2) 
C 

C COMMON INFORMATION IS GIVEN IN TASK CIRCUIT (OVERLAY(l.O) ) 
C BEAD INFORMATION IS GIVEN IN SUBROUTINE GETBEAD OF OVERLAY (0,0) 

C START BY TURNING CONTROL OVER TO GRAPHICS APPLICATION EXECUTIVE 
CALL MAIN 
END 



CSUBROUTINE DELCOMP 

SUBROUTINE DELCOMP 
C DELETES COMPONENT FOR INSERTION OF ANOTHER IN ITS PIACE. 
C ITS BEAD AND POINTERS ALSO DELETED, DISPLAY DELETED. 
C LEAD COUNT IN PICKED NODE DECREASED TEMPORARILY FOR 
C CONSISTENCY IN ROUTINE CHECK WHICH INCREASES LEAD COUNT 

INTEGER POINTER 

COMMON NCON, IBUF(IOO) ,MAD (60) , IBDA, IBDB, ISTATEV, ISTLSBD , IMAKE , POIN 

1TER(4),IFLG,NDCNT,NDMAX,MBYTE,NBYTE,IC0D,K,IBD,IPV,IPH,IA ! INV,INH, 
2N0PE,KICK,IC0MP(12) 

C DETERMINE IF COMPONENT IS HORIZONTAL OR VERTICAL 

1=7 

J=6 

IF((ICOD.AND.1).NE.O) GO TO 10 
C ICOD IS EVEN THEREFORE COMPONENT IS VERTICAL 

1=8 

J=5 
C IF NOPE=0 UNDESIREABLE ELEMENT ATTACHED TO PICKED NODE WILL 

C BE DELETED. IF NOPE=l PICKED ELEMENT WILL BE DELETED. 

10 IF(NOPE.EQ.O) CALL DMGET (iCOMP(l) , IA,KICK) 

CALL DMGET(IC0MP(4),KICK,IBTSTRM) 
C ERASE ELEMENT 

CALL GIERAS(IBTSTRM) 
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C UPDATE NODE BEAD STRING TO TAKE INTO ACCOUNT DELETED ELEMENT. 

CALL DMGET(ICOMP(3), KICK, POINTER) 

CALL DMGET ( ICOMP ( 2 ) , POINTER , I LEADS ) 

CALL DMSET(IC0MP(2). POINTER, ILEADS-1) 

CALL DMSET (ICOMP( J) , POINTER, 0) 

IBDB = POINTER 

CALL DMGET (IC0MP(2), KICK, LA) 

CALL DMSET (ICOMP(l) ,IA,0) 

CALL DMRLBD(KICK) 
C SPLICE OUT UNNECESSARY TERMINAL NODE BEAD 

DO 20 1=5,8 

CALL DMGET (ICOMP(I), POINTER, IEL) 

IF(IEL.NE.O) GO TO 70 
20 CONTINUE 
C LOCATE PRECEDING AND FOLLOWING NODE BEADS. NEXT NODE OF 
C PRECEDING BEAD IS CHANGED TO POINT TO FOLLOWING NODE 

NEXT = ISTATEV 
30 CALL DMGET (ICOMP(3) ,NEXT,NEXT1) 

I F (NEXT l.EQ. POINTER) GO TO 40 

NEXT=NEXT1 

GO TO 30 
40 IF(NEXTl.NE.ISTLSBD) GO TO 50 

ISTLSBD=NEXT 

CALL DMSET ( ICOMP (3), NEXT, 0) 

GO TO 60 
50 CALL DMGET (ICOMP (3), POINTER, IFXPTR) 

CALL DMSET (ICOMP (3), NEXT, IFXPTR) 
60 CALL DMGET (IC0MP(4), POINTER, IDISPAD) 
C TERMINAL NODE IS ERASED - BEAD IS RELEASED 

CALL GIERAS (IDISPAD) 

CALL DMRLBD (POINTER) 

NDCNT=NDCNT-1 

IF(NOPE.EQ.O) NOPE=l 
70 CALL DMGET ( ICOMP ( 2 ),IA, I LEADS) 

CALL DMSET (ICOMP (2 ),IA, ILEADS-l) 

RETURN 

END 



C ROUTINE ERRMESS 

SUBROUTINE ERRMESS (IWHY) 
C THIS DISPLAYS THE CORRECT ERROR MESSAGE 

INTEGER POINTER 

COMMON NCON, IBUF(IOO) ,MAD(60) , IBDA, IBDB , ISTATEV, ISTLSBD, IMAKE , POIN 
1TER(4) , IFLG,NDCNT,NDMAX, MBYTE, NBYTE , ICOD,K,IBD , IPV, IPH, IA, INV, INH, 
2NOPE , KI CK , I COMP ( 12 ) 

DIMENSION MESS (3, 3) 

DATA (MESS(I), 1=1, 3)/30HTOO MANY NODES / 

1, (MESS(l),I=4,6)/30HNO NODE PICKED TRY AGAIN / 

2, (MESS(I),I=7,9)/30HWRONG PICK TRY AGAIN / 
C DISPLAY ERROR MESSAGE 

NBYTE = 

CALL GURSET(-1000, 1000. 103B,IBUF, NBYTE, MBYTE) 
CALL GUAN (MESS (1, IWHY) , 24, IBUF, NBYTE -MBYTE) 
CALL GIDISP(NCON,IBUF,NBYTE,IDISP,4,I) 
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C MAKE MESSAGE A PRIME BUTTON 

C IF OPERATOR PICKS ERROR MESSAGE IT WILL BE ERASED 

CALL GIPBUT(NCON,4,1,10) 

CALL GIBUT(0,NCON,IDT,IDC) 

IF(IDC.EQ.IO) CALL GIERAS (IDISP) 

CALL GIPBUT (NCON) 

RETURN 

END 



CSUBROUTINE GETBEAD 



C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 



SUBROUTINE GETBEAD (ICOMCOD) 
INTEGER POINTER 

COMMON NCON, IBUF(lOO) ,MAD (60) , IBDA, IBDB , ISTATEV, ISTLSBD , IMAKE , POIN 
1TER(4) , IFLG,NDCNT,NDMAX,NBYTE , MBYTE, ICOD,K, IBD, IPV, IPH, IA, INV, INH, 
2NOPE ,KICK, IC0MP(12) 

PRELIMINARY INFO INTO BEADS WITH THIS FORMAT 
*RES/CAP* 
CODE = C 
FROM NODE(P) 
INTO NODE(P) 
IDDAD 

LABEL/VALUE 
VALUE /IDDAD 



CREATES AND ENTERS 
*NODE* 



WORD1 
WORD 2 
WORD 3 
WORD4 
WORD5 
WORD6 
WORD 7 
WORD8 
WORD9 
WORD 10 



CODE=7 

NO. LEADS 

NEXTNODE 

IDDAD 

UP ELEMENT(P) 

LEFT ELEMENT (P) 

RIGHT ELEMENT (P) 

DOWN ELEMENT (P) 

IHCEN 

IVCEN 

P = POINTER 



*SH0RT* 
CODE = CS 
FROM NODE(P) 
INTO NODE(P) 
IDDAD 
NOT USED 
NOT USED 



NOTE- POINTERS POINT TO IBEAD WORDS 



C 
C 
C 
C 



1 HORES 

2 VERES 

3 HORCAP 

4 VERCAP 



CS 
CS 



5 HORS 

6 VERS 



IF(ICOMCOD.GT.6) GO TO 30 

IF(IC0MC0D.GT.4) GO TO 10 

GET RESISTOR OR CAPACITOR BEAD 

CALL DMGTBD(5,IBD) 

GO TO 20 

GET SHORT BEAD 
10 CALL DMGTBD(6,IBD) 
20 CALL DMSET(IC0MP(1), IBD, ICOMCOD) 

CALL DMSET(IC0MP(2),IBD,IA) 

IBDA = IBD 

RETURN 

GET NODE BEAD 
30 CALL DMGTBU(10,IBD) 

CALL DMSET(ICOMP(l), IBD, ICOMCOD) 

CALL DMSET(ICOMP(9),IBD,INH) 

CALL DMSET(ICOMP(10),IBD,INV) 

CALL DMSET(ICOMP(2),IBD,l) 

IBDB = IBD 

RETURN 

END 
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CSUBROUTINE NMAKE 

SUBROUTINE NMAKE(INHL,INVL) 
C USED TO CHECK FOR NODE AT INH,INV. IF NODE THERE, A BEAD IS 

C FETCHED FOR IT AND NODE IS DISPLAYED. NODES ARE STRUNG. 

C STATE VARIABLE (FIRST NODE BEAD ADDRESS) IS STORED IN COMMON 

C LOCATION ISTATEV 

INTEGER POINTER 

COMMON NCON,IBUF(100),MAD(60),IBDA,IBDB, ISTATEV, ISTLSBD, IMAKE,POIN 
1TER(4) , IFLG,NDCNT ,NDMAX , MBYTE ,NBYTE , ICOD ,K, IBD , IPV, IPH , IA, INV, INH, 
2NOPE,KICK,ICOMP(12) 

NDMAX = 25 

INH = INHL 

INV = INVL 

IF(ISTATEV.NE.O) GO TO 20 
C LOGIC FOR FIRST NODE 

C GET BEAD, FIRST AND LAST BEAD ADDRESSES SET TO BEAD ADDRESS OF 

C THIS NODE 

CALL DMGTBD(10,IBD) 

ISTATEV = IBD 

ISTLSBD = IBD 
C SET CODE AND COORDINATES OF NODE 

CALL DMSET ( ICOMP (1), IBD, 7) 

CALL DMSET(ICOMP(9).IBD,INH) 

CALL DMSET (ICOMP (10), IBD, INV) 
C DISPLAY NODE 
10 NBYTE=0 

INHH = INHH2 

CALL GURSET( INHH, INV, 10 2B,IBUF,NBYTE, MBYTE) 

CALL GUMACG(MAD(7),1,IBUF,NBYTE, MBYTE) 

CALL GIDISP (NCON,IBUF,NBYTE,NIDDAD,2,7,IBD) 
C SET DISPLAY ADDRESS 

CALL DMSET ( ICOMP (4 ) , IBD , NIDDAD ) 

NDCNT = NDCNT + 1 
C CHECK TO SEE IF MAXIMUM NUMBER OF NODES HAS BEEN EXCEEDED 

IF (NDCNT .EQ. NDMAX) CALL ERRMESS (l) 

GO TO 30 
C CHECKS FOR EXISTENCE OF TERMINAL NODE OF ELEMENT 

20 CALL SCHNDHV 
C IF THERE IS ONE -RETURN 

IF (IMAKE.NE.O) GO TO 25 
C MAKE A BEAD FOR NODE 

CALL GETBEAD ( 7 ) 

CALL DMSET (ICOMP (3), ISTLSBD, IBDB) 

ISTLSBD = IBDB 

GO TO 10 
C" WHEN NODE IS ALREADY PRESENT, ADD ONE TO NUMBER OF BEADS 
25 CALL DMGET(ICOMP(2),IBDB,IVAL) 

CALL DMSET (IC0MP(2), IBDB, IVAL +1) 

30 RETURN 

END 

CSUBROUTINE SCHNDHV 

SUBROUTINE SCHNDHV 
C CHECKS FOR EXISTENCE OF NODE AT INH, INV 
C FLAG IMAKE EQUALS ZERO, TO MAKE BEAD, EQUALS ONE FOR DONT MAKE 
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C BEAD. IBDB HOLDS EXISTING BEAD ADDRESS IF IMAKE EQUALS ONE 
INTEGER POINTER 

COMMON NCON, IBUF(IOO) ,MAD(60) , IBDA, IBDB, ISTATEV, ISTLSBD, IMAKE, POIN 
1TER( 4 ) , I FLG , NDCNT , NDMAX , MB YTE , NBYTE , I COD , K , IBD , I PV , I PH , IA , INV , INH , 
2NOPE , KICK, ICOMP( 12 ) 
C LOOP THROUGH NODE BEADS TO DETERMINE IF A NODE EXISTS AT END OF 
C ELEMENT 

NEXT = ISTATEV 
10 CALL DMGET(IC0MP(9).NEXT,IH) 
CALL DMGET(ICOMP(10),NEXT,IV) 

IF((lNH.GE.IH-60 .AND. INH .LE. IH+ 60) .AND. 
1 (INV .GE. IV-60 .AND. INV .LE.IV+60) ) GO TO 20 
CALL DMGET ( I COMP ( 3 ) , NEXT , NEXT ) 
IF (NEXT.NE.O) GO TO 10 
C NO NODE EXISTS -IMAKE=0 
IMAKE = 
RETURN 
C A NODE EXISTS IMAKE=1 AND SAVE BEAD ADDRESS OF NODE 
20 IBDB = NEXT 
IMAKE = 1 
RETURN 
END 



COVERLAY (1,0) 

OVERLAY (1,0) 

PROGRAM CIRCUIT 
C PERMITS USER TO DESIGN SIMPLE CIRCUITS CONSISTING OF NODES (TIE 
C POINTS), RESISTORS, CAPACITORS, AND SHORTS, USER MUST START AT 
C DISPLAYED NODE AND COMPONENTS MUST BE ADDED FROM LEFT TO RIGHT OR 
C TOP TO BOTTOM. IF USER INDICATES DESIRE TO ADD COMPONENT TO 
C POSITION OCCUPIED BY ANOTHER COMPONENT, THE FIRST COMPONENT IS 
C DELETED 

C ERROR MESSAGES ARE SUPPLIED IN CASE OPERATOR GOOFS. A MESSAGE 
C MAY BE ERASED BY PICKING IT BEFORE ANY BUTTON IS PICKED. 
C 
C 

CCOMMON VARIABLES 
C 
C 

C IBUF - - - TEMPORARY BYTE BUFFER 

C MAD - - - MACRO AND SUBROUTINE ADDRESS 
C (1) HORIZONTAL RESISTOR 

C (2) VERTICAL RESISTOR 

C (3) HORIZONTAL CAPACITOR 

C (4) VERTICAL CAPACITOR 

C (5) HORIZONTAL SHORT 

C (6) VERTICAL SHORT 

C (7) NODE 

C IA - - - - BEAD ADDRESS OF PICKED NODE 

C INH - - - HORIZONTAL COORDINATE OF NODE TO BE DISPLAYED 

C INV - - - VERTICAL COORDINATE OF NODE TO BE DISPLAYED 

C IBDA - - - BEAD ADDRESS OF CURRENT COMPONENT 

C IBDB - - - BEAD ADDRESS OF TERMINAL NODE FOR COMPONENT 

C ISTATEV - STATE VARIABLE , CONTAINS BEAD ADDRESS OF FIRST NODE IN 

STRING OF NODES 
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C ISTLSBD - BEAD ADDRESS OF LAST NODE IN STRING OF NODES 

C IMAKE - - FLAG TO INDICATE TO MAKE BEAD OR NOT 

C =0 MAKE BEAD 

C = 1 DO NOT MAKE BEAD, ONE ALREADY EXISTS AT INPUT 

C COORDINATES 

C POINTER - CONTAINS BEAD ADDRESS OF COMPONENTS TO BE DELETED 

C BECAUSE ASSOCIATED NODE IS DELETED 

C IFLG - - - FLAG TO INDICATE WHETHER TERMINAL NODE EXISTS FOR 

C COMPONENT 

C =0 TERMINAL NODE EXITS 

C =1 TERMINAL NODE DOES NOT EXIST 

C NCON - - - CONSOLE NUMBER 

C NDCNT - - NO. OF NODES 

C NDMAX - - MAXIMUM NUMBER OF NODES 

C MBYTE - - MAXIMUM BYTES ALLOWED IN IBUF 

C NBYTE - - CURRENT NUMBER OF BYTES IN IBUF 

C ICOD - - - COMPONENT CODE OF BUTTON PICKED 

C IBD - - - BEAD ADDRESS OF BEAD CURRENTLY BEING CREATED 

C NOPE - - - SET BY ERASE TO SKIP STEPS NOT NEEDED IN DELCOMP 

C KICK - - - IA PARAMETER PASSED TO DELCOMP 

C 

C 

C 

CEND OF COMMON VARIABLES 

C 

C 

c 

COMMON NCON, IBUF(100 ) ,MAD(60 ) , IBDA, IBDB, ISTATEV, ISTLSBD , IMAKE , POIN 
1TER(4), IFLG, NDCNT, NDMAX, MBYTE, NBYTE, ICOD, K, IBD, IPV,IPH,IA,INV,INH, 
2NOPE , KICK, ICOMP(12) 
DIMENSION NEWM(3),NAME(60) 

DATA (NAME (I), 1=1, 9) /4HHORS,4HVERS,4HHOCP,4HVECP,4HHOST,4HVEST, 
1 4HERAS,4HENVL,4HDONE/ 
DATA (NEWM(I ) , 1=1, 3 )/4RERAS , 4RENVL, 4RDONE/ 
C SET UP CONSOLE BY NCON CONSOLE CARD WANTED GOES LAST 

NCON=l 
NCON=2 

CALL GICNJB(NCON) 
C 
C SET INPUT CONTROL MASKS 



C 



CALL GIMASK (NCON, -0,2, 2) 

CALL GIMASK (NCON, -0,4, 4) 

CALL GIMASK (NCON, -0,1, 8) 

CALL GIMASK (NCON, -0,7, 16) 

ICOMP2 =010000000000B 

DO 10 1=1,12 

ICOMP(l) =1 .OR. ICOMP2 
10 CONTINUE 

K = 

ISTATEV = 

MBYTE =310 

NDCNT = 

NOPE = 

KICK = 

ISEE = 4302B 

IDNTSEE = 4202B 

DO 20 I = 1,60 
20 MAD (I) = 
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C CREATE HOR. RES. BYTESTREAM WITH LEADS UNPICKABLE 

NBYTE=0 

CALL GUSEGS (0,0, 75, 0,1,-0,IBUF,NBYTE, MBYTE) 

CALL GUSEG(75,0,0) 

CALL GUBYTE( ISEE,1,IBUF,NBYTE, MBYTE) 

CALL GUSEGI (75, 0,-0,IBUF,NBYTE, MBYTE) 

N = -50 

DO 30 I = 1,9 

N = -N 
30 CALL GUSEG ( 75+25*1, N, l) 

CALL GUSEG(325,0,1) 

CALL GUSEG (325, 0,0) 

CALL GUBYTE(IDNTSEE, 1,IBUF,NBYTE, MBYTE) 

CALL GUSEGS(325, 0, 400, 0, 1,-0, IBUF. NBYTE, MBYTE) 

CALL GIMAC (NCON, IBUF,NBYTE, MAD (1)) 
C 

C CREATE HOR. CAP BYTESTREAM WITH LEADS UNPICKABLE 
C 

NBYTE=0 

CALL GUSEGS(0,0, 75,0, 1,-0,IBUF,NBYTE, MBYTE) 

CALL GUSEG (75, 0,0) 

CALL GUBYTE( ISEE,I , IBUF,NBYTE, MBYTE) 

CALL GUSEGS(75,0, 175, 0, 1,-0,IBUF,BNYTE, MBYTE) 

CALL GUSEG (175, 50,0) 

CALL GUSEG (175, -50,1) 

CALL GUSEG (225, -50,0) 

CALL GUSEG(225,50,1) 

CALL GUSEG(225,0,0) 

CALL GUSEG (3 25, 0,1) 

CALL GUSEG(325,0,0) 

CALL GUBYTE ( IDNTSEE , 1 , IBUF , NB YTE , MBYTE ) 

CALL GUSEGS(325, 0,400, 0,1,-0, IBUF, NBYTE, MBYTE) 

CALL GIMAC (NCON, IBUF, NBYTE, MAD(3)) 
C 
C MAKE NODE BYTESTREAM 

NBYTE =0 

CALL GUARCG( 1,0, 0,12, 0,12, 0,-0, IBUF, NBYTE, MBYTE) 

CALL GIMAC (NCON, IBUF, NBYTE, MAD (7)) 
C 

C MAKE VER. RES. WITH LEADS UNPICKABLE 
C 

NBYTE = 

CALL GUSEGS ( 0,400, 0,325, 1,-0, IBUF, NBYTE, MBYTE) 

CALL GUSEG (0,325,0) 

CALL GUBYTE( ISEE, 1, IBUF, NBYTE, MBYTE) 

CALL GUSEGI (0,325,-0, IBUF, NBYTE, MBYTE) 

N =-50 

DO 40 I = 1,9 

N = -N 
40 CALL GUSEG (N, 325-25*1,1) 

CALL GUSEG ( 0,75.1) 

CALL GUSEG (0,75,0) 

CALL GUBYTE ( IDNTSEE , 1 , IBUF , NBYTE , MBYTE) 

CALL GUSEGS(0, 75,0,0, 1,-0, IBUF, NBYTE, MBYTE) 

CALL GIMAC (NCON, IBUF, NBYTE, MAD(2)) 
C 
C CREATE VER. CAP. WITH UNPICKABLE LEADS 
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NBYTE=0 

CALL GUSEGS (0,0,0, -75, 1,-0,IBUF,NBYTE, MBYTE) 

CALL GUSEG(0,-75,0) 

CALL GUBYTE( ISEE, 1,IBUF,NBYTE, MBYTE) 

CALL GUSEGS(0, -75, 0,-175, 1,-0, IBUF,NBYTE,MBYTE) 

CALL GUSEG(50, -175,0) 

CALL GUSEG(-50,- 175,1) 

CALL GUSEG(- 50, -225,0) 

CALL GUSEG (50, -225,1) 

CALL GUSEG (0,-225,0) 

CALL GUSEG (0,-325,1) 

CALL GUSEG(0, -325,0) 

CALL GUBYTE(IDNTSEE, 1,IBUF,NBYTE, MBYTE) 

CALL GUSEGS(0, -325, 0,-400, 1,-0, IBUF,NBYTE,MBYTE) 

CALL GIMAC (NCON,IBUF,NBYTE,MAD(4)) 

C 

C MAKE HORIZONTAL SHORT WITH ENDS UNPICKABLE 

C 

NBYTE=0 

CALL GUSEGS (0,0, 75, 0,1,-0,IBUF,NBYTE, MBYTE) 

CALL GUSEG(75,0,0) 

CALL GUBYTE( ISEE, 1,IBUF,NBYTE, MBYTE) 

CALL GUSEGS(75,0, 325, 0, 1,-0,IBUF,NBYTE, MBYTE) 

CALL GUSEG (325, 0,0) 

CALL GUB YTE ( IDNTSEE ,1,1 BUF , NB YTE , MBYTE ) 

CALL GUSEGS(325,0,400,0,1,-0,IBUF.NBYTE,MBYTE) 

CALL GIMAC (NCON, IBUF,NBYTE,MAD(5) ) 

C 

C MAKE VERTICAL SHORT WITH ENDS UNPICKABLE 

C 

NBYTE=0 

CALL GUSEGS (0 ,0,0,-75,1,-0, IBUF,NBYTE ,MBYTE) 

CALL GUSEG(0,-75,0) 

CALL GUBYTE( ISEE, 1,IBUF,NBYTE,MBYTE) 

CALL GUSEGS (0,-75,0. -325, 1,-0,IBUF,NBYTE, MBYTE) 

CALL GUSEG (0,-325,0) 

CALL GUB YTE ( IDNTSEE, 1,IBUF,NBYTE, MB YTE) 

CALL GUSEGS ( 0, - 325,0,- 400, 1,0,IBUF.NB YTE, MBYTE) 

CALL GIMAC (NCON, IBUF,NBYTE,MAD(6)) 

C 

C INITIALIZE DATA MANAGER 

CALL DMINIT(4HSTAN,2) 
C 
C 
C CREATE AND DISPLAY 9 LIGHTBUTTONS 



C 



IHL=1200 
DO 50 I = 1,6 
NBYTE=0 

CALL GURSET ( - 1500, IHL,102B,IBUF,NBYTE, MBYTE) 
CALL GUAN ( NAME(I),4,IBUF,NBYTE,MBYTE) 
CALL GIDISP ( NCON,IBUF,NBYTE,IDDAD,l,I,4RMAKE) 
50 IHL=IHL-100 
IHL=600 
DO 60 I = 7,9 
NBYTE=0 
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CALL GURSET ( -1500 , IHL, 102B, IBUF, NBYTE, MBYTE) 
CALL GUAN (NAME (I ), 4, I BUF, NBYTE, MBYTE) 
CALL GIDISP(NCON,IBUF,NBYTE,IDDAD,l,I,NEWM(l-6)) 
60 IHL=IHL-100 
NBYTE = 
IHL = IHL - 100 

CALL GURSET (- 1500 , IHL, 102B , IBUF, NBYTE , MBYTE) 
CALL GUAN(5HDMDMA,5, IBUF, NBYTE, MBYTE) 
CALL GIDISP(NCON,IBUF,NBYTE,IDDAD,l,77,4RDUMP) 

C DISPLAY FIRST MODE AT -800,800 

CALL NMAKE (-800,800) 

C 

C DISPLAY FIRST NODE AT -800,800 

C 

CALL NMAKE (-800, 800) 

C 

C USER HAS NOW PICKED NODE AND INDICATED WHAT KIND OF 

C COMPONENT HE WANTS ATTACHED TO IT BY SELECTING THE 

C PROPER LIGHTBUTTON. 
CALL AETSKR 
END 



COVERLAY(2,0) 

OVERLAY (2,0) 
PROGRAM MAKE 
C MAKES BYTESTREAM AND BEAD FOR INDICATED ELEMENT 
INTEGER POINTER 
COMMON NCON, IBUF(IOO) ,MAD (60) , IBDA, IBDB , ISTATEV, ISTLSBD, IMAKE , POIN 

1TER(4),IFLG,NDCNT,NDMAX,MBYTE,NBYTE,IC0D,K,IBD,IPV,IPH,IA,INV,INH, 
2N0PE, KICK, ICOMP(12) 
C DETERMINE WHAT BUTTON WAS PICKED 

CALL AELBUT(IDDT,IC0D) 
C DETERMINE IF A NODE WAS PICKED 

CALL GIFID(NCON,INDTP,ICD,IA,IB,IPH,IPV) 
IF(INDTP.EQ.2.AND.ICD.EQ.7) GO TO 10 
CALL ERRMESS(2) 
GO TO 50 
C CHECK TO SEE IF UNDESIRABLE ELEMENT IS CONNECTED TO NODE 

C IF SO, DELETE 

10 CALL CHECK 
C GET CENTER COORDINATES OF NODE 
CALL DMGET(ICOMP(9) ? IA,IPH) 
CALL DMGET(ICOMP(10),IA,IPV) 
C OBTAIN AN ELEMENT BEAD 
CALL GETBEAD(ICOD) 

DISPLAY ELEMENT AND SAVE DISPLAY ADDRESS 
NBYTE = 

IF(ICOD.AND.l).EQ.O) GO TO 15 
IPHH = IPHH2 
IPW = IPV 
GO TO 17 
15 IPHH = IPH 

IPW = IPV - 12 
17 CONTINUE 

CALL GURSET ( IPH , I PV , 2 , I BUF , NBYTE , MBYTE ) 
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C OBTAIN AN ELEMENT BEAD 

CALL GETBEAD(ICOD) 
C DISPLAY ELEMENT AND SAVE DISPLAY ADDRESS 

NBYTE = 

CALL GURSET(IPH,IPV, 2, IBUF, NBYTE, MBYTE) 

CALL GUMACG (MAD ( I COD ),1, IBUF, NBYTE, MBYTE) 

CALL GIDISP(NCON, IBUF, NBYTE ,NIDDAD, 2 , ICOD, IBDA) 

CALL DMSET ( I COMP ( 4 ) , IBDA , NIDDAD ) 
C MAKE NODE AT END OF ELEMENT IF NEEDED 

IF(IFLG.EQ.O) GO TO 30 

IF((ICOD.AND.l).EQ.O) GO TO 20 

CALL NMAKE((IPH+42A),IPV) 

GO TO 30 
20 CALL NMAKE (IPH, (IPV-424) ) 
C FILL IN POINTERS ON NODES AND ELEMENT 
30 CALL DMSET(IC0MP(1),IBDA,IC0D) 

CALL DMSET (ICOMP (2), IBDA, IA) 

CALL DMSET(ICOMP(3), IBDA, IBDB) 

IF((IC0D.AND.1).EQ.0) GO TO 40 
C SAVE NECESSARY ITEMS OF HORIZONTAL COMPONENT 

CALL DMSET(ICOMP(7),IA,IBDA) 

CALL DMSET (ICOMP (6), IBDB, IBDA) 

GO TO 50 
C SAVE NECESSARY ITEMS OF VERTICAL COMPONENT. 
40 CALL DMSET(ICOMP(8),IA,IBDA) 

CALL DMSET ( ICOMP ( 5 ) , IBDB , IBDA) 
50 CALL AETSKR 

END 



CSUBROUTINE CHECK 



SUBROUTINE CHECK 
C CHECKS FOR EXISTENCE OF A COMPONENT POINTER IN A NODE BEAD 
C AND CHECKS FOR NUMBER OF COMPONENTS TIED TO A NODE. IN EITHER 
C CASE, UNDESIRABLE COMPONENT IS DELETED. 

INTEGER POINTER 

COMMON NCON,IBUF(100),MAD(70), IBDA, IBDB, ISTATEV,ISTLSBD,IMAKE,POIN 
1TER(4),IFLG,NDCNT,NDMAX,MBYTE, NBYTE, ICOD, K,IBD,IPV, IPH, IA,INV,INH, 

2N0PE, KICK, ICOMP (12) 

CALL DMGET(IC0MP(2),IA,IVAL) 
C IF 4 LEADS ARE CONNECTED TO NODE MUST DELETE UNDESIRABLE 

C COMPONENT 

IF(IVAL.NE.4) GO TO 20 
10 CALL DELCOMP 
C SET IFLG TO ZERO FOR NO TERMINATE NODE NEEDED 
C WHEN ELEMENT ADDED 

IFLG = 

IF(NOPE.EQ.O) GO TO 40 

NOPE=0 

GO TO 30 
C DETERMINE IF HORIZONTAL OR VERTICAL COMPONENT IS BEING CONSIDER 

20 1 = 7 

IF((ICOD.AND.1).EQ.O) 1=8 

CALL DMGET (I COMP (I), I A, MAYBE) 
C IF AN UNDESIRABLE ELEMENT IS CONNECTED TO NODE DELETE IT. 

IF(MAYBE.NE.O) GO TO 10 
C SET IFLG TO ONE TO MAKE TERMINATE NODE 
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C WHEN ELEMENT IS ADDED. 
30 IFLG = 1 
40 CALL DMGET(ICOMP(2),IA,IVAL) 

IVAL = IVAL + 1 

CALL DMSET(IC0MP(2),IA,IVAL) 

RETURN 

END 

COVERLAY (3,0) 

OVERLAY(3,0) 
PROGRAM ERAS 
C ERASE PICKED COMPONENT OR NODE AND RELEASES BEAD 
C IF A NODE, ALL COMPONENTS ATTACHED TO IT ARE ERASED 
INTEGER POINTER 

COMMON NCON, IBUF( 100) ,MAD (60) , IBDA, IBDB , ISTATEV, ISTLSBD, IMAKE , POIN 
1TER(4) , IFLG,NDCNT,NDMAX 5 MBYTE ,NBYTE , ICOD,K, IBD, IPV, IPH, IA, INV, INH, 
2NOPE , KICK, IC0MP(12) 
CALL GIFID(NCON,INDTP,IDC,IA,IB) 

IF(.NOT.(INDTP .EQ. 2 .AND. IDC .EQ. 7)) GO TO 60 
C IF FIRST NODE IS PICKED PRINT ERROR 

IF(IA.EQ. ISTATEV) GO TO 70 
C A NODE WAS PICKED 

C RELEASE BEADS OF ELEMENTS ATTACHED TO NODE -ERASE ELEMENTS 
J=2 

DO 10 1=1,4 

CALL DMGET (lCOMP(l+4) , IA , POINTER ( I ) ) 
IF(POINTER(I).EQ.O) GO TO 10 
CALL DMGET (IC0MP(4) , POINTER(l) ,LDISPAD) 
CALL DMGET(ICOMP(l),POINTER(I),KIND) 
IF (KIND.GT.4)GO TO 5 
CALL DMGET(IC0MP(6),P0INTER(I),IDAD) 
IF(IDAD.NE.O)CALL GIERAS(IDAD) 
5 CONTINUE 

IF(I.EQ.3) J=3 

CALL DMGET (ICOMP(J) .POINTER (I), I WHERE) 
CALL DMSET(ICOMP(9-I),IWHERE,0) 
CALL DMGET (IC0MP(2) , I WHERE, I LEADS) 
CALL DMSET (ICOMP(2) ,IWHERE,ILEADS-l) 
CALL GIERAS (IDISPAD) 
CALL DMRLBD (POINTER(l)) 
10 CONTINUE 
C LOCATE PRECEDING AND FOLLOWING NODE BEADS. NEXT NODE OF 
C PRECEDING NODE IS CHANGED TO POINT TO FOLLOWING NODE 
NEXT = ISTATEV 
20 CALL DMGET (IC0MP(3),NEXT,NEXT1) 
IF(NEXTl.EQ.IA) GO TO 30 
NEXT=NEXT1 
GO TO 20 
30 IF(IA.NE. ISTLSBD) GO TO 40 
ISTLSBD=NEXT 

CALL DMSET (IC0MP(3) ,NEXT,0) 
GO TO 50 
40 CALL DMGET(IC0MP(3),IA,IFIXPTR) 

CALL DMSET(IC0MP(3),NEXT,IFIXPTR) 
50 CALL DMGET(IC0MP(4),IA, IDISPAD) 
C NODE POINTED TO IS ERASED, BEAD IS RELEASED. 
CALL GIERAS (IDISPAD) 
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CALL DMRLBD(IA) 

NDCNT=NDCNT-1 

GO TO 90 

AN ELEMENT WAS PICKED 
60 IF(INDTP.EQ.2) GO TO 80 
70 CALL ERRMESS(3) 

GO TO 90 

SET UP NECESSARY VARIABLES TO DELETE ELEMENT - THEN DELETE 
80 ICOD = IDC 

NOPE = 1 

KICK = IA 

CALL DELCOMP 

NOPE = 
90 CALL AETSKR 

END 



C0VERLAY(4,0) 

OVERLAY(4,0) 

PROGRAM ENVL 

COMMON NCON, IBUF(IOO) ,MAD (60),IBDA, IBDB, ISTATEV, ISTLSBD , IMAKE , POIN 
1TER(4), IFLG,NDCNT,NDMAX, MBYTE ,NBYTE, ICOD , K, IBD, IPV, IPH, IA, INV, INH, 
2NOPE ,KICK, ICOMP(12 ) 

CALL GIFID (NCON,IDDT,IDDC,IA) 

IF(IDDT.EQ.2.AND.IDDC.LT.5) GO TO 100 

CALL ERRMESS(3) 

GO TO 1000 
100 CALL GFONTN (NCON, 0,-1300, I FTN) 

NX=10 

CALL GIANS (NCON, NX, 800, -1000) 

NBYTE=0 

CALL GURSET (- 100,-1600, 102B, IBUF,NBYTE, MBYTE) 

CALL GUAN (6HACCEPT,6,IBUF,NBYTE,MBYTE) 

CALL GIDISP (NCON, IBUF,NBYTE,IACP, 1,10) 

NBYTE=0 

CALL GURSET ( 100, - 1600, 102B ,IBUF,NBYTE, MBYTE) 

CALL GUAN (6HREJECT, 6,IBUF,NBYTE,MBYTE) 

CALL GIDISP (NCON, IBUF,NBYTE, IRJT, 1,11) 
200 CALL GIBUT ( 0, NCON, ICO, IWD) 

IF(IWD.EQ. 10.OR.IWD.EQ.ll) GO TO 300 

CALL ERRMESS(3) 

GO TO 200 
300 CALL GIANE (NCON, NX, JBUF) 

ITYP = 1 

CALL EICHEK ( ITYP, JBUF, NX, IBUF) 

IF ( ITYP) 305,305,310 
305 CALL ERRMESS(3) 

CALL GIANS (NCON, NX, 800,- 1000) 

GO TO 200 
310 CALL GIERAS (IFTN,IACP,IRJT) 

IF(IWD.EQ.ll) GO TO 100 

CALL DMGET (IC0MP(2),IA,NN) 

CALL DMGET (ICOMP(9).NN, JH) 

CALL DMGET (ICOMP(10),NN, JV) 

JH = JH + 75 

JV = JV + 75 

IF(IDDC.EQ.2.0R.IDDC.EQ.4) JV=JV-275 
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CALL DMGET ( IC0MP(6),IA,IDV) 
CALL GIERAS ( IDV) 
NBYTE=0 

CALL GURSET (JH,JV,002B,IBUF,NBYTE, MBYTE) 
CALL GUAN (JBUF, NX, IBUF,NBYTE, MBYTE) 
CALL GIDISP (NCON,IBUF,NBYTE,LDV) 
CALL DMSET (IC0MP(6),IA,IDV) 
333 FORMAT(24(E,I2,3H,l)) 
ENCODE (7, 3 33, XX )NX 
DECODE (NX , XX , JBUF) VAL 
CALL DMSET (ICOMP(5),IA,VAL) 
1000 CONTINUE 

CALL AETSKR 
END 

SUBROUTINE ETCHEK(lOPE ,BCO,NC , ITEM) 
C 

C THIS ROUTINE TRIES TO PROTECT A USER FROM FATAL ERRORS DUE TO AN 
C ILLEGAL NUMBER BEING RECEIVED FROM A LIGHT REGISTER. THIS ROUTINE 
C CHECKS FOR SOME COMMON ERRORS THAT OCCUR WITH BOTH E FORMAT AND 
C I FORMAT. 
C 

C I ORE --IORE=0 MEANS CHECK AGAINST I FORMAT 
C IORE.GT.O MEANS CHECK AGAINST E FORMAT 

C BCD --DISPLAY CODE OF ENTERED NUMBER. DIMENSIONED TO 
C ALLOW MORE THAN TEN CHARACTERS. 

C NC --NUMBER OF USABLE CHARACTERS IN BCD. MUST BE POSITIVE 
C ITEM --TEMPORARY WORKING AREA. NEED AT LEAST NC WORDS. 
C ***** NOTE ***** 

C IORE IS RETURNED AS A NEGATIVE VALUE (-1) WHEN THE NUMBER IS BAD. 

C IORE IS UNCHANGED FOR ACCEPTABLE NUMBERS. 

C 

DIMENSION BCD(1),ITEM(1) 
NP=1 
L=0 

DO 100 1=1, NC 
L=L+1 
NS=61-6*L 

ITEM(I)=LBYT(NS,6,BCD(NP)) 
IF (L-10) 100,50,50 
50 L=0 

NP=NP+1 
100 CONTINUE 
C WE HAVE GENERATED NC WORDS IN ITEM. EACH CONTAINS ONE CHARACTER OF 
C DIGIT FROM BCD. 
NP=0 
NS=0 

DO 1000 1=1, NC 
IT=ITEM(i) 

IF(IT.NE.45B.AND.IT.NE.46B) GO TO 500 
NS=NS+1 
GO TO 1000 
500 IF (IT.EQ.57B) NP=NP+1 
1000 CONTINUE 

IF (IORE) 7000,1500,2000 
C CHECK INTEGER VALUE FOR TOO MANY DECIMAL POINTS OR SIGNS. 
1500 IF (NP) 7000,1500,2000 
1600 IF (NS-1) 8000,8000,7000 
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C CHECK FLOATING VALUE FOR TOO MANY DECIMAL POINTS OR SIGNS. 
2000 IF (NP-1) 2500,2500,7000 
2500 IF (NS-2) 8000,8000,7000 
7000 I0RE=-1 
8000 RETURN 
END 

COVERLAY(5,0) 

OVERLAY(5,0) 

PROGRAM DONE 

COMMON NCON,IBUF(100),MAD(60),IBDA,IBDB,ISTATEV,ISTLSBD,IMAKE,POIN 
1TER(4) ,IFLG,NDCNT,NDMAX , MBYTE ,NBYTE, ICOD,K, IBD, IPV, IPH,IA, INV, INH, 
2NOPE,KICK,ICOMP(12) 

VOLUNTARY ABORT OF JOB 

NBYTE=0 

CALL GURSET(-500, -1400, 18, IBUF,NBYTE, MBYTE) 

CALL GUAN(3IN THATS ALL FOLKS, 31, 
1IBUF,NBYTE, MBYTE) 

CALL GIDISP(NCON.IBUF,NBYTE,IDDAD) 

CALL GICNRL(NCON) 

STOP 

END 

OVERLAY (6,0) 

PROGRAM DUMP 

COMMON NCON,IBUF(100),MAD(60),IBDA,IBOB,ISTATEV,ISTLSB 
1TER(4),IFLG,NDCNT,NDMAX,MBYTE,NBYTE,IC0D,K,IBD,IPV,IPH, 
2NOPE,KICK,ICOMP(12) 



C 
C 



CALL DMFLSH 

CALL DMINIT (4HSTAN,2) 

CALL DMDMP 

CALL AETSKR 
END 



7 
8 
9 
CIRXXX 
SCR 
7 
8 
9 
CIRXXX 
6 
7 
8 
9 



OVERLAY AND SUBROUTINE USE 



The following program listing is designed to illustrate the use to which overlays and sub- 
routines may be put in the Interactive Graphics system. Refer to Appendix B and the IGS 
Reference Manual for information concerning the data handler routines and beads. Check 
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overlays (10, 10) and (11, 10) for special uses of ENCODE and DECODE (Appendix C con- 
tains further applications of ENCODE and DECODE). Look for the programming error in 
OVERLAY (11, 0)'s program ROTA. Software zooming and rotation are illustrated in this 
program. The following diagram illustrates the beads constructed by the data handler. 



Line Bead 



Circle Bead 



1 


2 


IDDAD 3 


4 

IHl * 


IVl 5 


IH2 6 


IV2 7 


8 


|<-r>MP(l)- ■""" 1 


= 1,25 




KSHOW 1 


2 


IDDAD 3 


W(l) 4 


IH1(2) 5 


IH1(3) 6 


IH1(4) 7 


IH1(5) 8 


IV1(1) 9 


IVl (2) 10 


IVl (3) U 


12 

IVl (4) IZ 


IVl (5) 13 


IH2(1) 14 


IH2(2) 15 


IH2(3) 16 


IH2(4) 17 


IH2(5) 18 


IV2(1) 19 


IV2(2) 20 


IV2(3) 21 


IV2(4) 22 


IV2(5) 23 




IHC 24 


25 
IVC ° 



Word 1 
Word 2 

Word 1 
Word 2 

Word 3 
Word 4 
Word 5 
Word 6 



JOB,P17,T10000,CM40000,TP1. 

RUN(S) 

LGO. 

AEFILE. 

SCR. 

RELEASE (KCB) 

EXIT. 

RELEASE (KCB) 



CVE 3 U'Y (SCR, 0,0) 

P«CGMr CREATE C l^?['l , h"l P UT ) 

C0h,!C% IBUF(64},NCu'', I^-P(? c; ). IP(8U),NLIN»NCIR 

CHL AEXbC 

fcNC 



OVERLAY (1,0) 

FPCHKAK FIRST. 

COCMC'v IBUF^64),NC0 l! , I C- " (2~) , I D( 30 ) , ML I N, NCI R 

fvCCN = 9 

CALL AETSKCMLP'IT) 

ENC 
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OVERLAY (2, > 

PRCGRAI* INIT 
C * * THIS TASK INITIALIZES LISPLAY Qfc CRT - OPERATOR NAY REINITIALIZE 
C * * IF HE EOES NOT LIKE CUkPE.N'T DISPLAY 

COfHCN IBUF'<64),NC0N, lC' J P(25> . I D.< 80 > , *LIN,NCIR 

DlfENSlON NAHEC9), IDWA(Q) 

CAT A (NAME.U), I=l,9>/«hL^E.4HCIkC,4HERAS,4HM0VE,4|.CCFY, 
*4HZ0CM,4HR0TA,4HINIT,4(.,QUIT/ 

CAT A (ICW A < H,I=l,9)/4?LI.vF,4RCIRC,4REPAS,4RM0VE,4RCCFY, 
*4RZ0CM,4RR0TA,4PINIT, '♦HluIT/ 
C * * ATTACH C0NS9LE . 

CALL 3ICNjB'(NC0 f O 
C * * SET LP HASKS FO» D£Tt^KIf:I :-JG HQk' TO TREAT PICKET ITF^S 

no io 1=1.5 

N=2**(I-1) 

JO CALL r 3IHASKO)CQ",-0»N»^) 

CO 12 1=1,80 
12 ID(I)=0 
C * * DISPLAY BUTTON «ENU 
IHs-1500 

iv=+eiij 

DO 15 1=1,9 

NPYTE=0 

CAUL GLRSET"( IH, lV,l r '2 r ', IE-UF, NPYTE, 312 ) 

CALL GlAlMCNAMEM I), 4, IF UFV 8 vTE , 312 ) 

CALL C1DISP(NC0", IBUF, lv-)YTE , I DO AD, 3 IB, I , IDK A ( I ) ) 
15 IVsIV-lOD 
C * * INITIALIZE FILE USfcf ny LATA v A*jAGEP , CENTER TRACKING CROSS 

CALL DMNIT<4LDMA,?) 

CALL GITC0NXNCO\ ! ,G,0) 

NLI^=0 

fvCJRsy 
C « * SFT LP COKPCNEf;T COTES m£E[ BY -lEADS JN EATA MANAGER. 

I C f P { 1 ) = 6 60 1 ^ y r< o [: o i y 

ICfP( 2) =0530.500 "HlO 01 b 

ICCP(-3)=C5!JO3DC r :00u'ib 

IC^P(4)s066Cil4uTO0O?B 

ICf P(5)s064414Q<30CO'<JB 

IC^P(6)=063014onoOo?E 

I~CP(7)=C614140' 1 Cf 1 D2b 

ICfP(S)s060O14tino.002b 

ICf'PC9)=Ci6601400Cf , 03b 

ICfPdO )=0644l4noD0^3B 

ICfP(li)=063014noOGt ! 3 £ ' 

ICNF-(12)=0614l4PO r 'o n 3 p 

ICl»P(13 3=060 01 4''U9G! 1 3 i " 

ICfP(l<) )=0660-l4noC'O n 4'- 

ICKP(15)a0644l4f;0U(-C4- 

I OP (16 ) = D63 014GOCuM f - 

IC^P(37)=061414P00L ! 04f' 

ICCPde )s06n0l4fIjOC?4P 

ICr-PdS )s0660!4 n OCD'S^ 

IC^P(20 )=0644i4"C^0 r 5'-: 

ICfP(2i) = 063Ql4no0cnb 1 ; ' 
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ICfP<?3) = 060014nuOc r, S: : - 
i C f P < X 4 ) = 6 3 3 Q ^ - 6 r ; 

CALL AETSKR 

hH 

C'^SLAV(3,0l 
PHCOSAl* LIME 

: * * this task ov;?l*y u js p i_.-y? * lime oh the cht 

COMCN IBUF<64) .nco -, U t<-2' : >) , I DC 80 ) , \;LI N, NCI R 
C * . F<FT«lFVf TRACKING C-^O^S COmiH .MATES OF INITIAL FCt,\T CF L'NF- SEGhFNT 
C * * tut rOvE TRACKING COS:, *AC^ TO CENTER OF CRT 

CALL GITCOFINCO' , Ihi , I v - / 

CALL <3lTCON(!vCQ a >,.J, ^ 
C, * » LIS^LAy EfNfDL AT b&3 ! N 1 - 1 1 \G Of L I'-it SFGKENT 
■ M: : YTE = 

CALL 5t^ET(lHl-^n, f VI. in38. I ^F, Wo YTE. 312 > 
CALL C?LA.N(4ME\i)L,4, Jb',T- , \ <? YTE , 31,2 ) 
CALL GIDISP'(.«CG'', IhUF,., 'YTb, I Opt.< JT, 308 . 1 > 
Z * * F'fCGMi* RESTRICTS :-J ' .' h "> t & OF LINES DISPLAYED TO fniHf nF 4r 

IflH U.tiE.C.A-rv^L^.L-.^) .- 5J To ]0 
PRHT 5 7 
e CALL AET!iKC(4LU'MT) 
L * « WAIT FCR ENDL 5M'Tj' ! T.;, pp pickFD. TH"N ERASE IT FROf« TMfcr 
10 CALL GHUTdi.NC:,, I ; TmI C> 

IF( JtT,^E.3n8.0?.Ir)n," c ;.l r ')^C TO i-G 
CALL 3IERASC ICP-L'T) 

C • * S c T"IEvE TRAC^TuJ C-U^ COo-p I \i 4 TES OF F-N'D POINT CF LU^ "fG^M 

"*LL 3ITC0F( \iCO' ; , In?. I'v?) 
C * * i'--T LU F BEAD A" : D STG <E ^Af A ■} i ri F- S S FN' ID ARRAY 

CALL Uf-GTSut^. i f 'L) 

no 12 jDN=i # nn 

•F (I^< ILN > iEC. n ) .,'■ T u is 

Ff-iMT 9 a 

C-H TC £ 
1, 5 i r> 1 1 T 'v ) = 1 9 1; 
t * * MSPLAr SEQUENT ■' "PT 

^-YTE=J 

CALL '3L9SETU^1» IVj.l."^-'. !3lT,\; 'YTE.31.2) 

CALL "l!5EG3( lKi, IVi, I i^, J V2.1. --", IfcjijF,, MBYTE. 312) 

C*LL -IfHSPCCO- .!•> <F,, ^lt, l?Uf.b,Z?B.l. IHH) 
- * * f ILL LI?-E KEAU -'IT,-) ij?b->I c; Tr;v QF SEGMENT, AND L TE°L AY AM-tSS 

FALL '^SET(IC-'Pfl>, Ti, ,-: 

r ALL ih^ETdC'Ci 3),I« ', 1 r J : " a:') 

CALL OvsETUC-'Pf 4) , Tw ■', i^j.) 

CALL Oj»SET( ICV?<5>, 7b>. , l v i ) 

CALL I>3fcT< IC^P'c) , lb' 1 . Im?) 

CALL DvsfcTC T C m P C 7 ) , '•■.', t -y?j 
J » * R:--Pl'SI TIO.'-J T-'A'-KI:^,'* ! Jr S ^S-- A : v n ?ETij:<N CONTROL TC FC^CLF 

CALL PITCON(NC0:-,r,^) 

CALL AETb'Krt 
>7 FOR-sAT(*i NLt^lE'" OF lU.ES EXCEEDS <)0*) 
',.? F')firiAT(*l mLL *<■ hE-D I'S 8=1^ USED*) 
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0VERLAVt4 f OJ 

PRCGPAf CISC 
C * * THIS TASK OVERLAY IS I'SFD FOR DISPLAYING CIRCLE CK CRT 

COMMON I9UF'(64)»NCON,IC J, P(25),10(SO),MLIN.NCIR 
C * * RETPIEVE T.C, COORDINATES OF CENTER OF CIRCLE AND RE-PCSlTION 

CALL GlTCOK«NCON,lHC.IVC) 

CALL GITCON(NCON,0,0) 

C * * DISPLAY CENT BUTTON AT CENTER OF CIRCLF- 
NBYTEsQ 

CALL 3fRSET1[IHC*50f lVC,t03B.ISUF,NBYTE,3l2) 
CALL GLAN(4HCENT,4, IBUF, viB YTE. 312 ) 

CALL GIDISP'(NCON» IBUF»NQYTE. IDPBUT#30B,lO) 
C * * END JOE IF NUMBER OF CIRCLES DISPLAYED IS GREATER THAK 40 
NCIRs |\CIR*i 

IF(NCIf,.*GE.i9,AND,NcIR.LE 1 40) GO TO 10 
PRIMT 9 9 

6 CALL AETSKCMLQUIT) 
C * « KAIT FCR CENT SUTTON To SE PICKED, THEN ERASE BUTT-CN 
10 CALL GI9UT(0,KCnN,IDT#I':'C) 

IF (IDT,NE,30e,OH, inc.^E.in) CO TO 10 

CALL GIERASUDPBUT) 
C * * RETRIEVE T.C. COORDINATES OEFlMItfr) RADIUS OF CIRCLE 

CALL GITCOFXNCON, IHP, Iv?) 
C * * GET CISCLE BEAD AMD STo r <E BtAD ADDRESS IN ID ARRAY 

CALL D,vGTBD(6,ino> 

DO 12 IDN = 1,"80 

IF(IC(IDN),EO,0)QO To j^ 
1" CHKTINLE 

F'^INT 58 

GC TC 6 
15 ID(ICN)aIRD 

C * * DISPLAY CIRCLE AND ^TOr- COCR'M MATES AND DISPLAY ACDhESS IN EFAC 
KBYTEsy 

CALL GLRSET'( IH2. IV2,iu2w, I 8LF, ;jf]Y Tfc, 312) 

CALL GLAkCGUjIHC.IVCl;-'?. IV2, I H2, I V2, -0 # 1 8UF. N5YTE , 21 2 ) 
CALL GIDISP<NC0N,lB i !F.iv- r 'YTt J IDDAD,22B,2.lDfv) 
CALL 0cSET('ICMP(3), ?BH, IDIAH) 
CALL TCSET< ICMP(D, IB "», l ) 
CALL D|»SfcTCICMP<24), IP'J, I>'C) 
CALL DKSET(TCMP(25). IBj, IV C) 
CALL DKSET<ICMP(4).ian, ir?) 
CALL DKSET(ICMP(9), IfcP, I v S: ) 
CALL Df<SfcT(ICMP(l4),r 1 o, ;„;>) 

CALL DCSET('ICMP(l9), I ?D, n'2) 
C * * RE-PCSITION TRACKlM? r F<^SV AND rcETURM CONTROL TC CCNS^LF 

CALL GITCON(NCOM,n,:;) 

CALL AETSKR 
SB FORMAT(*l ALL 8P 8£»*-D i?£ B C I ' G USED*) 
S9 F0RMAT<*1 NUMBEP OF ClRcLF.S EXCEEHS 40*) 

END 
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FPCGMp ERAS 
l * * THIS TaSK OVERLAY E"aS(-s A Llf'.'c or circle FROM CRT 

CO^CV IBUF(64),NCO" ! , !C ! P!i5). I D< 80 > , ML I N, NiClR 
V * * DETERMINE WHICH L I N - 3k CIHCLE VA3 PICKED FOR ERASLPE 

CALL fiIFID(NCON,IDT. I-C, IDA; 

IF( IET,NE.228,0R,IuC,Lfc.n,0r?. IjC.GE.3) GO TO 25 

IBC=ID (IDA) 

CALL 0KiET(ICMP(3>, !i>D, IDHAH) 

GO TC (10.15JIDC 
C * * LINE TC BE FRASFD - OEc^ Er.'T LINE COUNTER 
lu M-P.'sr-.LIN-i 

ITEMS s KLIN + "CI.R 

GO TC 2 
u * * CIRCLE TO BE ERASE j - u -] G F f: ?-: E M T CIRCLE COUNTER 

t5 ncip = ncib-.i 

ITfcMS s NCIH + NL'N 
C * * ERASE THE PICKED DISPLAY ITEM AMD RELEASE BEAD 
20 CALL TJERASUDDAD) 

CALL IVRLBD? IHD) 

ID< I C A > = 

IF( ITfcPS.GElQ.AND. ITE-^i.Lf .bO) GO TO 25 

CALL AtTSKC'(4LQL'lT) 
25 CALL AETSKR 

E fM C 



CVE^LAy <6.0) 
PRCGnAK HOVE 

* THIS TaSK overlay mhvGs a picked display item to A DIFFERENT lcca t ion 

COCflCM IBUF<64),MCQ',]C " ! P(2 ! 5). I D I BO ) , HL I N , NC I R 
DIMENSION ICRD(5) 

* RETRIEVE T.C, COORDINATES OF \ES' LOCATION 
CALL GITCGFINCOM, Ih- : , 1 V '- ) 

w DETERMINE WHICH LINE OR CIRCLE IS TO 9E MOVED 
CALL GIF IDCMCON, IT, IC. IA) 

IF(IT,KE,22B,OR.IC.LE.0.U c 3.IC.Gt f 3) GO TO 20 
I 3C = I 3 < I A ) 
CALL DfGfcT(ICMP<3>,IBt\IDDA3> 

* I"0VE DISPLAY ITEM 

CALL GIMOVE'< I HN. I Vn, 1 T m , J dda D , I T , I C, I A ) 

GO TC(10 # 15>IC 
: * A LINE *AS MOVED - ALTER DISPLAY COORDINATES 
10 CO 11 1=4,7 
.11 CALL Dl-GETC ICMPU), Iu?. TC UC I-3>> 

ICfiD(3)*(IC«D(3)-IC«P(l) )*HN 

I CR D ( 4 ) = ( I CHD ( 4 ) - I C"Q < 2 )) * I VN 

ICRD(1)=IHN 

1CRD(2)»IVN 

DC 12 1=4,7 

12 CALL 0.eSETCrCMP(I> # l6D,iCR'J(I-3>) 

GO TC 20 
• « A CIRCLE WAS MOVED - ALTER DISPLAY COORDINATES 
15 CALL DKRET C I CHP < 1 ) , 1*0, KSri ^W ) 

CALL DfGETC ICMP<24). PD, I HO 

CALL DHitTC T CMP (25), PD, I VC) 

CALL Di-GcTC ICMP(4),I3L 1 . IH1) 

call dcgetc icmp(9), idd, iv!) 
mh:s( ihn-ihd + ihc 
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MVCs<IVN-IVl)«-iyC 

NRfcFsNIHC 

IREF=I>C 

CALL 0f»SET(tCMP<24), I^CjNlHC) 

CALL DfSET( tCMP(25), Hd,.vIVC) 

CO 19 „=3.18,5 

CO 17 «=1#KSH0W 

CALL DfGETClCMP(J>K). IBD, IVAL) 

NVALs(lVAL,^I-REF)+NRPF 

17 CALL D|»SET(ICHP(J*K).ISD.NVAL> 
IFCNREF.EQ.NIHC.AND, IREF.EQ. IHC)GO TO IS 
fvREFsNJHC 

MEF=IKC 
GO TC 19 

18 NPEFeNlVC 
IR£F=IVC 

19 COMINLE 

C * * RE-PCS ITIOM TRACKING CROSS aNiD RETURN CONTROL TC CC^SCLE 
2D CALL GITCON'<NCON,0,0) 
CALL AETSKR 
ENC 

CVERLAy<7,0) 

c * * this task overlay copies a lh-e op circle alreacy ■ cisp.layec 

COKHCN ieUF'<64)»NC0N. IC.^P(25). I D ( BQ ) , ML JN , NC I R 

CIKENSIOH ICRDC4) 
C * * RETRIEVE T.C. COORDINATES OF LOCATION TO DUPLICATE LINE CR CIRCLE 

CALL GITCOF'tNCON, IH"!» J V ^ > 
C * * DETERMINE WWICH JTE^ w'aS PICKED FOR COPY AND RETRIEVE ITS CISPLAY 
C * * ADDRESS FROM BEAD 

CALL GIFID(NCON,IT J IC.IM> 

IF( n,NE.22B,OR.lC.LE.0..OR.IC.GE,3)GO TO 25 

I As ID < IDN) 

CALL DKGET( ICMP(3).Ui IPDAO) 
C * * ASCERTAIN WHETHER T^ERE IS ROOM FOR AMOTHER BEAC 

CO 5 ICN=1»80 

IF(IC(IDN).EQ,Q)GO TO 7 
5 CONTINLE 

GO TC 22 
7 GO TCdO.lSHC 
C * * COFYING LINE m GET NEW LINE SFAD 

10 CALL DNGTBD'(2,IRD) 
I D( ICN> = IBD 

CO 11 1=4,7 

11 CALL QfGET<ICMP<I>,lA.ICRDU-3>) 

C * * DETERMINE DISPLAY COQPUINATFS OF DUPLICATE LINE ANC STCRE IN SfcAD 
ICRD(3)*(ICRD(3)-ICRD(1))+IHN 
ICRD(4)s( IC8D(4)»ICRD(2) )+IVN 
ICRD(l)4lHN 
ICRD(2)=IVN 
CO 12 1=4,7 

12 CALL DNSET(ICMP<I),iaD,ICRDM-3)) 
NLINsN.LIN + 1 

ITEMS s NLIN * NCIR 
GO TC 20 
C * * CCFYING CIRCLE • GET '$EV. CIRCLE bEAD 
15 CALL D|».GTBDt6,IPD) 
in<IEN)=I8D 
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* * Hi-.TSRhlNE JISPLAY C'D -j ' i T! S OF DUPLICATE CIRCLE Hit £TC"E I* PPAQ 
C*LL H|.GtT( ICMP(l), U.K'^rw^ 
C*LL "f GfcT(ICMP(24),Ii, !MC > 
CALL n,v GET ( I CMP f 25 ) , I A , ' v C > 
CALL Li*'GET(lCMPC4>. I A* I <l) 
CALL '>GET( ICMPC9), IA.1 I 1 
Mhfs( IHN-iHD + lHR 

f> ivc = uvh - ivi) + iv" 

N-fcFs\'IHC 
I f -EF=!HC 

CALL !)CSET(ICKP(l),IaV,^SMO i ) 
CALL DNSETt I CMP (24), I'.J.WHf) 
CALL DrSeT(ICKPl25),i^J.vUC) 
E p 55 w r3.18,5 
C n 17 K=1,*SHCW 
C^L 0KPET( IC M P(J + K), T rt> IVaI ) 
WAL = (IVAL - IREF) + "nTF 
17 CALL '-'i-StTUCMPt J + K), !8 V % V/>L) 

I r ( vn^K.tQ.MHC.A'lj.r^-.-i. IMOGO TO 1? 
^LF = \IMC 
r.'fcFalhC 
GO TC 19 
16 M-'KF = MVC 
Ii-EFsIvC 

19 CCMINLE 
KClPsivCIR + i 

ITEM'S s NCIS + '\!Ll;v 

20 IF{ nEf-S.GE.Q.A'lDt I T t' ; S.LF.hO )u.J TO 23 
<* CALL AtTSKC (4L-^UlT? 

' * COPY Display ITEM. ';r:"«? ribPLAY ADDRESS. AND RE-PCSITION TR, C'uSS 

C:3 CALL GICOPY< IODAO.^CO , IH' , I W, .!.0?B. I DDAD, I T, I C, IDN ) 

C-UL DrSfcT(lC^P(3), IB", JDDa'j) 

<b Call ^nCON(NCO , !,0, i ) 

C-LL .AtTSKK 
■f-''C 

cvt«L4y(in,n ) 

FVC'SRAN ZOOM 

* THIS TaSK OVERLAY ZCCHS „; rJ OR D W Si TH^ FNTIRE DISPLAY 
CO^MC:N IBUF(64),NC0 V , I CV'P ( 25 ) . I D ( 3Q ) . ML I N, NClR 
DIffNSIc;.' I6C^O)» I r RU) 

* STC^t 2CCT" BUTTONS, T.C. COORDINATES ARE FOR CENTER CF FMCF 

i^cr^Ds-ynznov! up 

I 5CD(2)=9HZ0O' DQWi", 

IHC1(3)=4HCENT 

CALL JITCCFCNCOtJ, thCt ',1VCF>') 

CALL i ilTCO;v , (NCOM.0, r -) 

K = l 

* D!S p LAY ZOOM CHOICES .'.-:;i Ct.ST aT CENTER OF FRAME 

IVs-1500 
5 NF'YTEac 

CALL 'Ju^SETUH. IV»l r u-', TbUF ,\!?YTfc.3l2> 

CALL GLAM IBCB<K),9, 1 P UF, >:b YTE , 112 > 

CALL CilDISPU'CO*. I^UF.f; !fTE, I DK ( K ) , 44R, K ) 

IV=IV-200 

K = K+1 

GO TC (5,5,7,9)K 
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7 IHalHCENrSO 
IVrlVCEN 
GO TC 5 
C * * DEFINE ZOOM UP AND ZOOM DOWN AS PRIME BUTTONS 

9 CALL GIPBUTtNCON t 44B.3(j3,44P> 
C * * DISPLAY NUMERIC FONT And LIGHT REGISTER 
CALL GFONTNtNCON,-l3(jO J -SOO.IDR(4)) 
CALL GIANS(NCON.10,«.1500.-900) 
C * * WAIT FCR ZOOM UP Or ZOOM DOWN TO BE PICKED 

10 CALL GI6UT{0,NCON»IT,IC> 
IF(IT,NE,30B,AND,IC,NE.443)GO TO 10 
N = l 

CALL GIFSIDtNCON,N,ITiIC) 

IF{IT,NE,44B,0R.IC,L£,0.0R.IC.Gl,3)GO TO 10 
C * * RETRIEVE T.C, COORDINATES JF UPPER RT. HAND CORNER OF FRAME 

CALL GITCOFtNCON # lHCOR,IVCOR) 

NC = 10 
C * * RETRIEVE ZOOM FACTOR FROM LIGHT REGISTER AND ERASE ZCGI* MESSAGES 

CALL GIANE(NC0N,NC,IBCD) 

CALL GIERAS<IDR(l>,ID"(2)iIDR(3$#IDR(4)) 

ZM = 1, 

IF<NC.LE,0. flR.NC.GE.il) GO TO 11 
2001 F0RMAT(2H(E,I2,3H,1)) 
ENCOCE(7,2001,SMAT)NC 
DECODE(NC»SMAT. IBCD)ZM 
C * * ERASE ALL CURRENT DISPLAY ITEMS FROM CRT 

11 DO 20 J*1.88 

IF <ID(J)> 20.20,12 

12 CALL DMGET(T;CMP(I> # ID<J>,KSMOW) 
CALL 0M6ET<TCMP(3>,ID<J>,IDDAD) 
CALL GIERASUDDAD) 

IF(KSHCW) 26.15.16 
C * * FRAME SCISSAR ANY LINES OR CIRCLES NOT WITHIN FRAME BOUNDARIES 

15 CALL LINSCISUC.J.IHCEN.IVCEN.IHCOR.JVCOR.ZM) 
GO TC 20 

16 CALL ARCSCISUCJ.IHCEn, tVCEN.IHCOR.lVCOR.ZM) 
20 CONTINUE 

CALL GITCON'(NCON,0,0) 

CALL AETSKR 

END 

SUBROUTINE LINSCJSCK.J, IHCEN, I VCEN, IHCORi I VCQR.ZM) 
COMMON IBUFt64).NC0N,ICMP(25).ID(8B).NLlN.NClR 
DIMENSION ICRD<5) 
DO 5 I«4j7 
5 CALL DMGET<XCMP(I),ID(J),ICRD(I«3)) 
GO TC (lO.li)K 
C * * ALTER LINE BISPLAY COORDINATES BY ZOOM FACTOH<DI V ISOR) 

10 Hl»ICRDtl)*2M 
V1*IC-RBJ2)*2M 
H2»ICRDl3)*2M 
V2«ICRD(4)*2M 
GO TC 18 

11 Hl«tCRCtl)/2M 
VlxICRCt2)/2M 
H2*ICRD(3)/2M 
V2aICREt4>/ZM 
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* * F P A M E SCISSOR LlNt TO 3E DISPLAYED 

lis CALL 3LLINEI IriC^f-i. 1VCE.J, ItiCOR, I VC0R,H1,V1,H2, V2.HSI-CU, 
*ICfiD<l), ICRQ(2) , ICR'Hl) , ICRn(4)) 
IF(KSH(,«)17,17,1« 

* * REL^St BEAD IF fc'niRF Li v E OUTSIDt OF ^RAMD 

CALL D|*RL3DUDC J) > 

IF(^LlN t GE i 0,A.vr>.\'i.IN fU c t 4 j SC TO 2 CI 
FRIvT 5 7 
CALL AE7SKCC4LOUIT) 

* * CISPLAV ZOOMED LT'-t Af'D S^OPE NEW DISPLAY COORDINATES AN'E ADL^tSS IN BEAD 
le KBYTE sq 

CALL -'JLRSETi ICRH(l), jCnr c ? ) . 1 n 2 B * IBUF.nhYTE.3i2) 

CALL GlSEGSUC*n(l>, ]CRI(2). I CRRC 3) , ICRD< 4 > . 1, Q , I8LF,NEYT<=,31?) 

CALL GItISP<NCO-v, Ifi'JF.r.FYTE, I DOAD, 22B . 1 , J > 

CALL n,vc(f T (ICi-PC3), I U < J ) , I DOAD ) 

C^ IS I = -»,7 
19 CALL DN3fcT( IC^PC I), MjC j), ICKDCI-3) ) 
-t FFTUR'; 
<»7 FCRKAT(*1 NLhHE^ OF L^N^S EXCEEDS 4rj*) 

E.NL 



S l : if P C " T I ^ F- ARCS"IS(/, J, Tt,C6f, TVSfcN. 1HCOR, IVCOR.Zf) 
. * EO SAf'E TASKS FOR Ctrt"L-3 (ARCS) AS WAS DONE FOR LINES IN SUE. LHSCIS 
COi» f'C" I LfUF'C 64 ) . N C ,) ! , I ■: .'P ( J5 ) , IT ( 8 > , ML I N . MC I R 
rL'T-NSlON IHK5), UMC^). I 42 (5). I V2(5) 
CALL ' 1 !V l lf-.T(IC"pf24).in(j,, [MO 
CALL n !'0£TClCMP<2^). in (J), IVC) 
CALL r i*GtTi ICMPC4), IDC J), Hi ) 
CALL IV GfcT ( I C>'P ( 9 > , I D < J ) , I VI ) 
GC TC ( 11,12 )K 

11 t-C=IhC*ZH 

V c = I v c * z * 
H 1 a I H 1 * Z ■-! 

V 1 r IV 1 * 2 "■ 
GC TC 15 

12 HCsIHC/Z* 
VCsIVC/Z* 
Hl=IHl/7i- 
VlsIVl/ZM 

1.5 CALL ilARCC IHCE*:, Iv^t'i, IhCOP, IVCOR, HC, VC» Hi, Vl , H . VI , XSMC ', 
*IHC. IVC, IH1, J VI. IH2, IV2) 

IF(KSHCK)17,17,1B 
17 CALL >RLBD< I C ( J ) ) 

NCn = NClR-l 

lF(.\iCI r i.3E.0,AN'3,NClK.Lf ,"0)GC TU 25 

PRINT 5 9 

CALL AtTSKC(4LC'!lT) 
Id CO 20 I=l,KShCW 

CALL f>SETUCfPC3 + I>,!iJC J>, IHl(I)) 

CALL I?f 3fcT< IO'P(8+I ), U>( J) , I VIC I) ) 

CALL U|»SET<ICMP(l3*I), 1MJ),IH2(1>) 
20 CALL T J|» SfcT( ICHPC1B+I). K(j), IV2C I) ) 

CALL ONSET Cir!*iP<2<»>, IDC j), IHC) 

CALL IH'SET < J CMP (25) , I D f v 1 > . I VC) 

CALL nf»sET( JC^PCD, IDC J) .KShOiv) 

N3YTE=G 

CALL 'iLRSETMHKi), I VI C 1 ) . in 29, IbUF . fWTE, 31. 2 ) 
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iCALL GLARCGtKSHOW.IMC#IVC» I HI, I VI. I HZ, I V2, , IBUF.NEYT6.312) 

CALL GIDiSPCNCQN, I8UF,N&YTE, IDDAD, 228 , 2. J ) 

CALL Dfr SET CI CMP (3), IDC J), iDn A3) 
25 RETURN 
99 FORMATC*! NUH3ER OF CIRCLES EXCEEDS 40*) 

END 



OVERLAY(lltfl) 

PROGRAM ROTA 
C * * THIS TASK OVERLAY ROTATES CRT DISPLAY UMTIL STOPFEC CR 36(5 DEGREES 

COKMCN IBUFt64).NCCN,ICMP<25>.IDC80),NLlN,NClR 

COKMCN /BLOGKA/IOR1G 

RINC * 3,1416 / 30.0 

R s RINC 

IORIG = 2 
C * * DISPLAY STOP BUTTON 

NBYTE=0 

CALL GLRSET'C-20n,-i50i\103B.IBUF,NBYTE,3l2> 

CALL GLANC4WSTOP.4, IBUF.NBYTE.3l2) 
/ CALL GIDISPHNCOW, IBUF, KBYTE. IDSTQP, 309, 10) 

C * * DISPLAY GO BUTTON 

KBYTE = 

CALL QLRSETt»20n,-l600.l03B, IBUF, NBYTE, 312) 

CALL GLAN(2HG0,2.IBI)F.N8YTE,312) 

CALL QIDISPtNCON, lBUf»NBYTE f IDGOt30B,99) 
C * * DISPLAY PROMPT MESSAGE AND FONT 

NBYTE * 

CALL GLRSET'(-l5no.-lCP0.3B, IBUF, NBYTE, 312) 

CALL GUAN<48HINPUT ANGLE TO BE ROTATED THROUGH - THEN FICK GC.48, 
1 IBUF. NBYTE, 312) 

CALL GIDISP'CNCON, IfiUF.fJBYTE. IDMESS.0,98) 

CALL GFONTNtNCON, -1300,-500. IFOMT) 

CALL GIANSCNCON,lO.-l5uo,-900) 
C * + WAIT FCR GO TO BE PlC*6n 
100 CALL GIBUTC0,NCON,IT,IC> 

IF(IC,NE,99> GO TO 10Q 

NC s 10 

CALL GIANE(NC0N,NC,I8CD) 

CALL GIERASUFONT.IDMESS) 

IF(NC.LE.O) GO TO 11 
2001 F0RMATC2HCE,I2,3H.1)) 

ENCODEC7,2Q01,SMAT) NC 

DECODE(NC,SMAT,IBCD) E^DANS 

GO TC 12 

11 ENDANG » 361,0 

C * * ROTATE DISPLAY FLEMENTs I« 6 DEGREE INCREMENTS 

12 DO 15 I * 1 , 360 , 6 
DO 10 J*J,8G 
IF(IE(>i))10,10,5 

C * * RETRIEVE DISPLAY ITEM TYPE AND ASSOCIATIVE ADDRESS, ANiC ERASE CLD DISPLAY 
5 CALL DKGETUCMP(1>,ID(J>,K) 
CALL DK(SET<ICMP(3),ID(J), IDDAD) 
CALL GIERAS'UDDAD) 
■C * * DISPLAY LINECCIRCLE) ROTATED 6 DEGREES 
IF(K)1Q,7,8 
7 CALL LINROTACJ.RINC. I) 
I GO TC 10 
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8 CALL ASCROTAt J.'q^CiD 
10 CCNTi'lF, 
C * * CHfcCK TC SEE IF A^QLt; Ll ! IT HAS BEE',' REACHED 
A!"G = I 

IF( ANG.Gt-.EiVUAKO) ''.J TO ? Q 
C * * INCREMENT ROTiT!u r ! 'iM"j_c 

R = R + RINC 
C * * CFTCF^irvE IF ST^p bJTTo" PICKED 

call GiPUTd.vcn^, m, no 

if (un .eg. ane) .a'<o. (ire .eu, 10)) go to 20 

15 CONTI'mLE 
C * * E f 'ASE STUP PUTTHjv *<■]) 3FTL'?V-J CONTROL TO CONSOLE 
ZO CALL G1ERAS< If'STOP) 

1GSIG s 1 
C ». * DISPLAY ORIGINAL n''.S°LAY EfUTTOM 

M-'YTE : C 

CALL !"uSt : b-;T<-2U%-.t r 50 ',.r.)3b', IRUF,NBYTE,312) 

CALL 3lAN<i7H0ftJtiI,- ! AL. '.? I SPL A Y , 17 , I BUF, NB YTE, 312 ) 

CALL GlDJ3P(!jC0' , IbUF.NavTE, I0031G,303,97) 
C * * SEE IP" GO OR OR'uI'.'AL -U t TuN IS PICKED 

CALL 'iiei'TC 0,\C r -,J. IT! , IJK) 

CALL ^lERASUOO^I", ID n,) " 

IF( inC.FL.9V) GO i^ ?<y 
t * * PFTUF\ TO GKI3IML i-IS^Y 

1*2 

no ?o j=i,so 

IF(It( u )) 3y,2f,,5u 
C * * fiSTPIF.vE DISPLAY I T ►- ••-» rvPL aNC ASSOCIATIVE ADDRESS, ANC fc^s^E CLD DISPLAY 
^0 CALL O.-GLTdCf'Pfi), Iu( J),K) 

CALL :3HCL ; T(!CMP( <), IDt u ), ID')AD) 

CALL QIEiXASUnDAD) 
L. * * EISPLAy ORIGIifiAL L. I i ! ;- ^ CIPCLF 

I F ( K ) .3 f; , 7 1 , b u 
70 CALL LIK'HOTa( J, r HC» I > 

GO T C 2 
cii CALL A,SCROT,i( J, 'V-'C, I ) 

2 CCMI'ltE 
r -9 CALL AgTSKR 
EMI 

S'Jc'?CL ! T I'Jh H"M<"T-M J.ThpTU.K) 

CO* MC>\ I BUF ( e.4 ) , r;C j , ! c : P ( 2 n ) , D < *0 ) , ML I N « NC I R 
CIKPNSIOK ICHH(5) 
CO b 1=4,7 
5 CALL nMET(ICMP(I),lC{j) t lcr:D(I-3)) 
C * * CHANGE LINE riS D LAr C -"'OrO I N ATES TO ROTATED VALUES 
L = 1 

CALL AKSLElIC^Dtl). !C- ; j(2J,THFTAl',K, J,L) 
L = 2 

CALL AiSGLEdCkD(o), I Z>-0 ( 4 ) , THET Al, K, J, L ) 
C * * DISPLAY MFW LINP 

i\3YTE = G 

CALL Gt«SET< ICf<n(l), r'ft'M ? ) , 102P# IBUF, N8 YTE, 312 ) 

CALL 2L3cCS( ICRD(1), IC*-^?), I CRD< 3) , ICRD< 4 ) , 1, * n , ! EUf , Nt UE , 3l2 > 

CALLC-ILISP(NC'^;,I!^'",' ■-■'YTt,IDDAn#22B,l f J) 
C * * STC i: vE i\EW DISPLAY C r, O l 'u IMATFS 

CALL Oj-SfcTUOPU), JD(j5, IDDAC) 
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CALL GLARCG<KSHOWiIHCiIVC,lHl,IVl,lH2,IV2.0.lBUF,Nl6YTE,312> 
CALL GIDISPtHC0N»lBUF»NRYTE.IDDAD,22B,2.W> 



CALL DfSET{tCMP(3)»ID<J),lDDAD) 

RETURN 
END 



SUBROUTINE ANGLE(IH»IV.THETA1.K»J,L) 

C 

C ROTATES * LINE FROM (O.O) TO ClH.JV) THROUGH THETA1 CEGREES IN 

C A COUNTERCLOCKWISE DIRECTION 9Y ROTATING THE (IH,IV> COORDINATES. 
C 

COHMGM /BLOGKA/IORIG 

TH x Jh 

TV « IV 

D = SQRTCTH**2 ♦ Tv**2) 

IF((ABSID)-0,01).LT.0,0) RETURN 

THETA2 * ATAN2(TV»TH) 

IF((IOH1Q,E8.1).ANO.(J.EQ.1)> THETF » THETA2 

IF(ICRIG.EOIt) GO TO 20 
C * * STORE REFERENCE ANGLE OF FIGURE FOR LATER USE TO RETLRN TO OLD DISPLAY 

IF((K,EQ,1)IAND,(L,EQ,1).AND,(j;EQ,1>) THETl ■ THETA2 

THETA2 ■ THETA2 + THETaI 
10 IV s D*SJNCTHETA2> 

IH s D*C0S(THETA2) 

RETURN 
C * * COHPLTE ANGLE CHANGE NECESSARY TO PUT ITEM IN 0RI6I0NAL POSITICN 
20 THETA2 * 6,28313 - TH&TF ♦ THETI ♦ THETA2 

GO TC 10 

ENC 

SUBROUTINE ARCROTA( J.THETA1.K) 
C * * SAKE TASK AS SUB, LINROTA EXCEPT THIS ONE F08 CIRCLESt ARCS) 
COMMON IBUFU4).NCON,ICMP(25),ID(80),NLIN,NCIR 
DIMENSION IM1(5>.IV1(5),IH2(5),IV2(5) 
CALL D*GET(TCMP(l>,ID<J).KSHOW) 
CALL D«GET(tCMP(24),ID<J).lHC) 
CALL DMGET<tCMP(25) # lD(j),lvC) 
L s 1 

CALL ANGLE UHC, I VC, THETAI. K, J, L> 
L x 2 

CALL DKSET(ICMP(24),ID{J),IHC) 
CALL OKSET(lCHP(25) t lO(j)»IvC) 
DO 10 K1.K8HOW 

CALL n«fiET(ICHP(3*I).lD(J).IHl(I)) 
CALL DpQET(tCMP(8*I)f lD<J)«IVl<I)> 
CALL ANSLE(XH1(I).IV1<I),THETA1.K,JA) 
CALL DHSET(tCMP(3*I)f I0CJ)»!H1(I)) 
CALL DtfSETUCHPCS*l)f !D<J>*IVl(m 
CALL D(*!GET<lCMP(l3*I),ID<J),IH2il>) 
CALL DHfiET(tCMP(l8*I) ( ID(J).IV2(in 
CALL ANGLE<lH2(I)»IV2(I),THETAi;K,J,L) 
CALL 0MSET(tCMP(l3*n«ID(J)'.IH2tI)) 
10 CALL 0MSET(|CMP(18*I), ID(J),IV2(D) 
N8YTE*0 
CALL GURSETtIHl(l).IVl(l).102B.IBUF,NBYTE.3l2) 
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7 
8 
9 
KCB 
SCR 
7 
8 
9 
KCB 
7 
8 
9 

6 
7 
8 
9 



CALL Dl'SETCICKPU). I D < J ) , I C«C ( l ) ) 
CALL OpSeT<IC*P<5),U<Cj), ICRHC2)) 
CALL D,vSET(ICi^P<6)»ILj(j), ICPDC3)) 
CALL CHSET(tCMP(7).lUf j). ICRD<4>) 
RETURN 



CV'E^L4Y(12,0) 
FRCGPA). QUIT 

this task overlay called to terminate joa 

COC'ICN IBUF (64 ), NCQM, I c*P< 25). I D( 80), ML 1N,NCIR 

ET PENSION NAME (2) 

CATA NAME /1UHJ08 Q'JIT**,10H SO LONG**/ 

DISPLAY END MESSAGE A'>G SELEASb CCNSGl E 

<\BYTE = 3 

CALL GL^SET(U,i t '00,10?8, I r mr, N8 YTE, 312 ) 

CALL 5lAN(NAM(=,20# 1 3UF* , M< YTE , Ti? ) 

CALL * .5 1 D I S H ( N C \' , I 8 ' J F » N ° Y T t : , I D D A U ) 

CALL GICNRL(NCO^) 

STQP 

EwC 
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SAMPLE CODING PROBLEMS 

Sample code listings for the Winding Road, Drifting Circle, Menu, Scissored Arc, and 
Star of David problems are given below. The examples given represent but one method 
of coding the problem. Other methods, perhaps more efficient or better-suited to 
specific installation requirements, may easily be adopted. These examples differ from 
those given in the text because they are written in FORTRAN Extended under Version 2 rather 
than RUN FORTRAN under Version 1, they were run using console (NCON) 9, not console 1, 
they contain additional coding to check errors, and they demonstrate efficient programming 
techniques. The IGS Version 2 permanent files option is not used by the examples in the 
text or in this appendix. 

WINDING ROAD 

OVERLAXSOURCb.0,0) 

PRCQRAf CRfcATE 

CALL AEXEC 

END 

CVERtAY(l.O) 

PRCGRAh- JSLOW 

DIMENSION IBUF(64),!8CD(3) 

NGCN=9 

N«YTE=C 

HBYTE = 3i'0 
C ATTACH CONSOLE AND C|_EAP REFERS 

CALL GICNJBtNCO.'J) 

CALL GIMASK<NCON,0,8,3) 
C DISPLAY CIAMQND SHAPED P£RJMETER 
5 CALL 3LRSET(0,1500,10?B,IBUF,NBYTE»MBYTE) 

CALL BLSEGSt 1 1500, 15I»Q ,0.1.77778', 1 3UF,-NBYTEt MBYTE) 

CALL GIS£G(0, -1500,1) 

CALL GLStfG<*1500,Q,l) 

CALL GLSEG(0,1500.3 ) 

CALL SIDISPtNCON, IBUF,NRYTE, ISQR) 
C DISPLAY *WJND'ING ROAD* LaREL 

CALL GLRSET(-64,77 0.2«IBUF,NBYTE,HBYTE) 

CALL GLAN(7HW!NDING,7»I8UF,NBYTEi MBYTE) 

CALL GLRSET(-48.-77n ( 2,IBUF,NBYTE,M8YTE) 

CALL GLAN(4HR0AD,4, IBUF,NBYTE, MBYTE) 

CALL GIDJSPXNCO'J, I6UF, MBYTE, ILBL) 

CALL GFCNT A (NCON, 150 0.150 0, I A, IB) 

C DISPLAY CURVE 

CALL GLRSET < 256, 256, 102B, I BUF, MBYTE, MBYTE) 

CALL GLARCGt 1,0, 256, 2^6, 256, 0,0.77778, IBUF,NBYTE,MEYTE) 

CALL GLRSETt -256, "256,1026, I BUF.NBYTE, MBYTE) 

CALL GLARCG(l,0,-?56,-256,«256,0,0.7777B,IBUF,NBYTE,CBYTE) 

CALL GIDISP(NC0N,I8UF»NRYTE,I"S) 

IF<I,GT.0)G0 TO 10 
C DISPLAY *ERASE CURVE* BUTTON 

CALL GLRSETt-l2eo,-90 0,i02B,IBUF,NBYTE.MBYTE) 

CALL GLANdlHERASE CuRVP, 11, IBUF.NBYTE, MBYTE) 

CALL GIDISP?NC0N,IBUF,NBYTE,IECRV,8,1) 
C DISPLAY tDISPLAY SIGN AGAIN* BUTTON 

CALL GLRSETt-1280. "1000,1028, IBUF, NBYTE'.MBYTB) 
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CALL GIAM18HDISPLAY SIGN AGA IN. 18, IBUF. NBYTE. MR YTE > 

CALL GIDISP<MC0N,l3UF,i^YTE.IDISA,8,2) 
C DISPLAY »END PROGRAH. BUTTON 

CALL GLRSETt-12SO»-liOQ,102P, IBUF, NBYTE, MBYTE) 

CALL GLAM11HEND PROGRAM, 11, IBUF, MBYTE, MBYTE) 

CALL f5IDI3P{NCOM,lBUF,NPYTE. IEND.8.3) 
C WAIT FCR A BUTTON Plc« 
1C CALL GICLR(NCON) 

CALL GIBUT(0,NCON, IDDT, IDDC) 

IF(IDOC.GT.l)GO TO 20 
C ERASE CURVE 

CALL GIERASUS) 

GO TC 10 
20 IF( IDDC.GT,2)G0 TO 30 
C ERASE SIGN 

CALL GIERAS(ISQS,ILRL«J3> 
C BUTTONS ALREADY DISPLAYED 

1=1 
C DISPLAY SIGN AGAP-' 

GO TC 5 
30 CALL GtRSET<-19!},l6lO#in2B, IBUF, NBYTE, MBYTE) 

CALL GlAN(16HPROGRa ;j ! Is ENDF-P, 16* IBUF, MBYTE, MBYTE ) 

CALL G1DISP<NC0N,I3UF,NPYTE. ISTOP) 

STCP 



DRIFTING CIRCLE 



CVERLAYCSOURCE,0,0) 
FRCGRAh CREATE 
CALL AEXEC 

END 



OVERLAY (1,0) 

PRCGRAf DRIFT 

DIMENSION IBUF(64>,IBCD(3) 

NCCN=9 
C ATTACH CONSOLE 

CALL GICNJBtNCON) 

f-BYTE = 310 

NBYTEsq 
C SET MSKS 

CO 100 Isl,5 

N=2**(I»1) 

100 CALL GIMASKtNCON,"0iN«N) 

C DISPLAY ^REPEAT* BUTTON W HICH BLINKS WHEN PICKED 

101 CALL GLRSETN70, -1200. 102P. IBUF, NBYTE, MBYTE) 
CALL GLAM6WREPEAT,6,l3UF,NRYTE,MBYTE) 

CALL GIDISPtNCOM, IaUF,N«YTE, IRPT, 8*16,2) 
C DISPLAY *COPY CIRCLE BUTfnN*WHlCH BLINKS WHEN PICKED 
CALL GlRSET WO. -140-0 »102R, J BUF,NBYTE, MBYTE) 
CALL StANdlHCOPY C IRCLE, 11, IBUF, MBYTE. MBYTE) 
CALL GIDISPtNC0M,l8UF.;VBYTE,ICPY,8 + 16,l) 
C DISPLAY *END PROGRAM* BUTTON WHICH SLINKS WHEN PICKEE 
CALL GLRSETWO,-1600.102B, IBUF, N8YTE. MBYTE) 
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CALL QLANU1HEND PROGRAM, U , JBUF.NBYTE, MBYTE) 
CALL GIDISPtNCQN,lBUF,NBYTE,IEND«8+16,3> 
L=0 
C DISPLAY TITLE 

CALL GUR5ETt«»l80,l000#2.IBUF,NBYTE»MBYTE> 
CALL GLAN<15HDRIFTING CIRCLE. 15. IBUF.NBVTE, MBYTE) 
CALL GIDISPtNC0N,lBUF,NBYTE,IL8L> 
C DISPLAY CIRCLE MACRO 

CALL GLARCGtl, -1024, 0,-512, 0,-512,0, 77778, IBUF,NEYTE, KBYTE) 

CALL GIMAC(NC0N,IBUF,NBYTE,MCIRC) 

CALL GLRSETt-512, 0, 1028, IBUF.^BYTE, MBYTE) 

CALL GUMACG(MCIRC,1,IBUF,NBYTE, MBYTE) 

CALL GIDISPtNCON, IBUF.NBVTE, ITEM1) 
C TURN TRACKING CROSS ON 

CALL GITCQNtNCQN, -512,0) 
C ATTACH MACRO TO TRACKING CROSS 

CALL GITMMVtNCQN,MC!RC) 
C ACTIVATE LIGHT PEN KEY 

CALL GILPKYtNC0N,8,7) 

K»Q 

202 K«K*1 

201 CALL GICLR(NCON) 

CALL GIBUT<0,NCON,IDDT,IDDC,IDWA,IDWB,IH,IV) 

IF(IDDC.EQ,l)GO TO 210 

IF(IDDC,GE,2,AND,lDDC,LT l 7)GO TO 203 

IF(K,LT;3>Ge TO 202 

IFdDDC.NE.J^AND.L.LT.l) GO TO 201 
C DISPLAY CIRCLE' IN NEk LOCATION 
210 IF(IH,EQ,-512,AND.IV l EQ.0)GO TO 201 

CALL GLRSETUh.IV,102B,IBUF,NBYTE,MBYTE> 

CALL GLMACGtMC IRC, l.IBuF.NBYTE, MBYTE) 

CALL GIDISPtNCON, IBUF.NRYTE, ITEM2) 

CALL GILPKYtNCON) 

CALL GITMMVtNCQN.O) 

L=l 

CALL GIERAStlTEMD 
C DISPLAY A COPY OF CIRCLE 

CALL GlCQPYtITEM2,NCON,.30 0,-10 0,106B.ITEM3> 

GO TO 201 
C ERASE CONSOLE 
2C3 IF(IDDC.GT,2)GO TO 204 

CALL GIERAStILBL,lRPT,IEND, ICPY. JTEM2, ITEMS) 

GO TC 101 

204 CALL GLRSETt-190, 1600, 102B,I8UF,NBYTE, MBYTE) 

CALL GLAN(l$HPROGRAM Is ENDED, 16iIBUF,NBYTE, MBYTE) 

CALL GIDISPtNCON, IBUF.NBYTE. ISTOP) 

STOP 

END 
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MENU FLOWCHART 




BRING IN IGS 
ROUTINES 



DIMENSIONING 
DATA STATEMENTS 



I ATTACH CONSOLE I 
I SET MASKS I 



DISPLAY ONE OF FOUR INSTRUCTION LINES 
AS AN IGNORE ITEM LINES ARE 100 DGU'S APART 



H3 




USE LOOP TO DISPLAY THE COLUMN HEADINGS AS BUTTONS 480 DGUS APART 



REPOSITION THE BEAM TO THE LEFT TO DISPLAY THE ITEMS UNDER HEADINGS 



Cm 



NO ITEMS IN COLUMN = < 



DISPLAY ITEMS COLUMN BY COLUMN 




YES 



IDDT = 2ITEM IS 

DISPLAYED ASA 

SINGLE PICK ITEM 







IDDT=4 

ITEM IS DISPLAYED 

AS A STRING 

PICK ITEM 
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MAKE BUTTON INSENSITIVE TO FURTHER LIGHT PEN PICKS | 



6 
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A-55 



^ 



ERASE ALL ITEMS UNDER 
HEADING EXCEPT ONE PICKED 




WAIT FOR PICK OF'NEXT ORDER*BUTTON 



ERASE INSTRUCTIONS AND 
ALL ITEMS REMAINING ON SCREEN 
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NO 




YES 



DISPLAY ERROR MESSAGE^PICK ONE , 
ITEM BEFORE PICKING THE HEADING 



■0 




NO 



DISPLAY ERROR MESSAGE?CHOOSE ITEMS 
FROM LEFT TO RIGHT-START AGAIN" 



© 
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A-57 



CVERLAYCSOURCE,0,0> 

FRCURaK CREATE(TNPUT, OUTPUT) 

CALL AEXEC 

EME 



50 



10 

c 



2 

c 



3P 



CVE 
PRC 
CH- 
EAT 

1. 4 

2 ■ 4 

3 4 
CAT 

12CH 
220h 
320H 
420H 
5201- 
62 Oh 
72Ph 
B20h 
$20h 
IVs 
JCK 
NCC 
NBY 
MBY 
CAL 
CO 
J = 2 
CAL 
CISPLA 
DO 
CAL 
CAL 
CAL 
IVs 

TISFLA 
IHs 
DO 
CAL 
CAL 
CAL 
IHb 
IHs 
IVs 
IDC 
ICN 
LISPLA 
THINKS 
CO 

1F( 
CAL 
CAL 
CAL 

m 

'•CVE E 
IHs 
ICN 
IVs 



RLAY 
GRA|v 

ENSI 
A{ IE 

OHCH 

OHO 

OHO 

A(I6 

ENTR 

DRIN 

TCHA 

STEA 

CHIC 

PIE 

TEA 

MILK 

NEXT 

5b0 

= 

Ms 9 

TEaO 

TE=3 

L a i 
in I 
*«< I 

L GI 

Y IN 
20 1 
L GL 
L GL 
L 61 
IV-1 

Y Mg 
-960 
30 w 
L GL 
L GL 
L GI 
IP + 4 
-96Q 
-50 

T = 2 
Tsl 

Y AL 
ARE 

40 K 
K.3£ 
L GL 
L GL 
L GI 
1CNT 
HAM 
IP + 4 
T*0 
50 



(1,0) 

NMENU 
ON! IER<57),IDTX(4),IDCX(4).IBCD<54),IBUF(d4) 
CD(I),I=1.13,4)/40HCHOOSE ON'E APPETIZER .THEN MEACING 
DOSE ONE ENTREE .THEN HEADING , 
OOSE ONE DESSERT .THEN HEADING , 
DOSE DRINKS( ,LE,4) .THEN HEADING / 
CD(Jj, J=17,53,2)/20HAPPETIZER 
EE .20HDESSERT 

K .20HCRAB COCKTAIL 

TO JUICE .20HCHOWOER 
K .20HLOPSTER 

KEN .20HSHERRET 

.20HCAKE 
.20HCOFTEE 
.20HWJNE 

ORDER .20HENQ PROGRAM 



10 

CNJS 

*2,5 

-1) 

MASK 

STRU 

= 1,1 

RSET 

AN< I 

DISP 

00 

NU L 



tNCON) 



(NCO^,0, J, J) 
CTION LINES 

3 ' 
( 

SC 
?NC 



[NCUM.U, J, J) 

:tion LINES 
5,4 

:-840, IV.10 2B, IB'JF.NRYTE.MBYTE) 
3CD(I),40,lBUF,W9YT£,MGYTE) 
INCON, IBUF,N"?YTE, IER(I),1, I) 



ABELS AS BUTTONS 



♦17,23,2 

RSETtlH.50fin38.ISUF,N6YTfc.hBYTE> 
AM ( I BCD ( J) .13, I B'JF, MBYTE. MBYTE) 
DISP*(NC0N,IBUF,NBYTE,IER(J),?4. J) 
80 



L ITEMS ON THE MENU AS SINGLE PICKS EXCEPT CRINKS 

STRING PICKS 
*25,49,2 
,43)IDDT«4 

RSETt IH, IV»1028, IBUF , NRYTE , MBYTE > 
AN<IBCD<K),i3, JBUF.NbYTE.MRYTE) 
DISPKNCON.lBUF,NCYTE,IERrK),IDDT.K) 
;LT,3.0R.K.fc?3,47)G0 TO 35 
TO RIGHT TO DISPLAY NEXT COLUMN 
80 
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35 ICKTbICNT*1 

40 IVsIVilOQ 

C DISPLAY NEXT OHDER AND END PROGRAM -BOTTOMS 

IV»-550 

DO 50 KKb51*53,2 

CALL GURSETt»120,IV#l02B,IBUF,NBYTE,M9YTE) 

CALL GLAN< IBCD(KK >, 11 »IBUF,NBYTE, MBYTE) 

CALL GJDI5PtNC0N,!BUF.NBYTE.IER<KK>.8,KK> 
50 IV»IV*200 
C CALL FOR BUTTON ID BLOCKS FOR ALL FOUR HEADINGS 

DO 120 11*1,4 
55 CALL GJ8UT(0iNCON#lDT«IDC) 
C fcHEN BUTTON |S FOR A STRING OF DRINKS, BRANCH 

IF(ICC,E0,23)G0 TO 60 

IF(ICC.GE,5I)G0 TO 145 
C CALL FOR SINGLf PICKS 

CALL GIFIDCNCON.IDTT, IDCC) 
C CHECK FOR ERR08S 

JF<IDCC,EQ,0)GO TO 200 

ICHK«2*II*15 

IF(ICHKiNE,1DC>JCKsl 

IF(ICHKTNE,IDC)GO TO 200 
C CHANGE THE BUTTON TO AN IGNORE ITEM 

CALL GIMQVEi-Q.«0#-0«lER(lDC),l) 

GO TC 110 
60 CONTINUE 
C CALL FOR STRING PICKS 
C SET ARRAYS TO ZERO 

DO 70 1*1,4 

IDTX< I )*0 
70 IDCX<I)«0 

DO 80 LM«1«4 

NCal 
80 CALL GIFSID'{NC0N ( NC.IDTX(LM),IDCX(LM)) 
C CHECK FOR ERROBS 

IF{IDCXtl),iO.0.AND,lDcX(2),EO,0,ANO,IDCX(3j,EO,0,ANC, 
1IDCX(4) I EQ,0) GO TO 200 

ICHKa2*II*15 

IF(ICHK.NE,IDC)JCK*1 

IF(ICHKINE,IDC)G0 TO 200 

CALL GIMOVEt*0#-0»-0,lER(IDC).l> 
C ERASE UNPICKED DRINKS 

IIJsO 

DO 100 J*43i49,2 

DO 90 1*1,4 

IF(J,Ec;iDCXU))lU«J 

IF(IIJ,GT,0JGO TO 100 

IF<I,EC;4,AND,IU.£Q,0)CALL GIERASC IER( J) ) 
90 CONTINUE 
100 HJbO 

GO TO 130 
C ERROR PROCESSOR 
200 IF<JCK.EQ,0>GO TO 210 

CALL GtRSETt*500,lOOO,102B, IBUF.NBYTE, MBYTE) 

CALL GLAN(44HCH00SE ITEMS FROM LEFT TO RlGHT^START AGAIK.44,IE 
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INBYTE.^YTE) 

CALL GIDISPtNCON, IaJF. MRYTE, IER (54 ) ) 

GO TC 140 
Z1G CALL 3LRSETt-50fl. 1000.1128, I8UF.NBYTE, MBYTE) 

CALL GLANMDHPICK O'Jfc ITE" BEFORE PICKING THE HEAD IMG ,40> IEUF. 
lNBYTE.^BYTEi 

CALL GlDISPtNC0N,l8UF»l\jRYTE.IER(55)) 

GO TC 55 
C ERASE ALL BUT PICKED ITE^S UNDER BUTTON 
110 IF(ICC.EQ,17)IJ=25 

IF(IDC.EU,19)IJ»31 

IF(IEC,EQ,21)IJ=37 
C ERASE ITEHS UNDER APPETIZER OR ENTREE OR DESSERT 

DO 120 JJ=1,5,2 

IKsJJ+I J»l 

IF{IK,EQ,IDCC)GO TO 1?0 

CALL GIERASUERUK)) 
12C CONTINLE 
130 CONTINLE 

C ERASE REST OF CONSOLE AFTER NEXT ORDER BUTTON PICK 
C END JC3 AFTER BUTTON PIC* OF END JOB AMD DISPLAY MESSAGE 
140 CALL GICLR(NCON) 

CALL 3IBUT(0,NCON,JDT,IDC) 

IF(ICC,LT.51)G0 TO 140 
145 IF(ICC.EQ.53)G0 TO 170 
C ERASE SCREEN FOR NEXT ORDER 

DO 150 jsl.13,4 
150 CALL GIERAStlER(J)) 

DO 160 Ial7,47,6 
160 CALL GIERASUER(I>.IER<I*2).IER<I+4)) 

CALL GIERAStIER(53).lER(54),IFR(55)) 

GO TC 500 
170 CALL GLRSETt'-l45,1500#in2B,IBUF,NBYTE J MBYTE) 

CALL GLAN(13HPROGRAM EnDED/13, IBUF,MBYTE»MBYTE) 

CALL GIDISPtNCON, iBUF^yYTE, IEMD) 

CALL GICNRLtNCON) 

STCP 

END 
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STAR OF DAVID 



JSTAR,P17*T10000»CM40000»TP1. 

FTN. 

LGO. 

AEFILE. 

SCR. 

RELEASE, XMPL. 

EXIT. 

RELEASE, XMPL. 

0000000000000000000000 

OVERLAY (SCR»0»0) 

PROGRAM CREATE (INPUT»OUTPUT> 

CALL AEXEC 

END 

OVERLAY (1,0) 

PROGRAM LITTLE 

DIMENSION IBUF(64) »I8CD(13) »IBB(13) 

DATA IBCD(1)/40HSUPP0SED TO BE A SQUARE INSIDE A STAR 

DATA(IBCDd) ,1=5,11, 2>/20HMOVE SQUARE LEFT , 
120HMOVE SQUARE UP ,20hMOVE SQUARE DOWN , 
120HMOVE SQUARE RIGHT / 

OATA IBCD(l3)/10HWRONG IDDT/ 

DATA(IBB(K),K=1,9,2)/20HRELEASE ,20HCHECK 

1 ,20HRESTART ,20HVERY GOOD , 

120HTRY AGAIN / 

NC0N=9 
C CONNECT CONSOLE 

CALL GICNJB(NCON) 
C SET ITEM MASKS 

DO 10 1=2,5 

I0DTS=2**(I-1> 

IMASK=IODTS 
10 CALL GIMASK(NCON,-0,IDDTS,IMASK) 
C SET DISPLAY CONSTANTS 

ICODE=103B 

ISTYLE=7777B 

MBYTE=310 

NBYTE=0 

c start drawing square 

call gurset (-1400, 0,3b,ibuf»nbyte, mbyte) 

call gusegi(-1400,0,istyle,ibuf,nbyte»mbyte) 

call guseg(-1200, 200,0) 

call guseg (-1200,-200,1) 

call guseg(-1600, -200,1) 

Call guseg(-160o,2oo,i> 

Call guseg(-i2oo»20o»i> 
c display square as a single pick item 

call gidisp(ncon,ibuf,nbyte»idrsv,2,l) 
c draw star of david (two triangles) 

call gurset (-500,300, icode, ibuf,nbyte, mbyte) 

call gusegi (-500, 300»1style*ibuf,nbyte, mbyte) 

call guseg(500, 300,1) 

call guseg(0, -600,1) 

call guseg(-500, 300*1) 

call guseg (-500, -300,0) 
c draw second triangle 

call gus£g(5q0» -300,1) 
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CALL GUSEG<0*600»1) 

CALL GUSEG<-500. -300*1) 
C DISPLAY STAR AS STRING PICK WITH MARKER MASK SET 

CALL GIDISP<NC0N»IBUF»NBYTE»IDDAD»24B.2> 
C LABEL THE FIGURES 

CALL GURSET(-744»1400»3B»I6UF»NBYTE*MBYTE) 

CALL GUAN(62riM0VE THE SQUARE INTO THE STAK AND CHECK IF IT IS IN T 
1HE CENTER»62»IBUF»NBYTE. MBYTE) 

CALL GIDISP(NC0N»IBUF,NBYTE»IDDAU.1»3) 
C MAKE FOUR BUTTON CHOICES 

DO 20 J=5»ll»2 

IF(J.EQ.5)IH=-1200 

IF(J.EQ.7)IH=-600 

IF(J.EQ.9)IH=0 

IF(J.EQ.11)IH=600 

CALL GURSET(IH,-900»ICODE»IBUF.NBYTE»MBYTE) 

CALL GUAN(IBCD(J)»20»IBUF.N6YTE»MBYTE) 
20 CALL 6IDISP(NC0NtIBUF»NBYTE»IDDA0*a»J) 

DO 52 N=13»21»2 

I0DT=B 

IV=-1200 

IF(N.EQ.13)IH=-105 

IF(N.EQ.13)IV=1800 

IF(N.EQ.15)IH=-96 

IF<N.EQ.17)1H=96 

IF(N.LT.19)G0 TO 26 

IH=-175 

IV=1200 

IC0DE=18 

IODT=l 
26 M=N-12 

CALL GURSETCIHt IV t ICODE, IBUF »NBYTE. MBYTE) 

CALL GUANdBB(M) ,9» IBUF»NBYTE»MBY TE) 

CALL GIDISP(NC0N»IBUF»NBYTE*1DDAD.IDUT»N) 

M=0 

IH=-1400 

iv=o 

IF(N.EQ.i9) IGOOD=IDDAD 

IF(N.EQ.21)ITRY=IDDAD 
b2 CONTINUE 

CALL GITCON(NCON»IH*lV) 

CALL GITIMV(NCON.IDRSV) 
36 CALL GIBUT(0*NCONtIDDT*IODC> 

IF(IDDC.LT.19.AND.1DDC.GT.3)G0 TO 43 

CALL GIABRT(NCON»10HWRONG PlCl\»10> 

STOP 

43 L=(ID0C-3 )/2 

CALL GITCOF(NCON»IH»IV) 

GO TO(44»4S*46»47*48»49»60)L 

44 lH=IH-50 
GO TO 50 

45 IV=IV+50 
GO TO 50 

4b lV=lV-50 

00 TO 50 
47 IH=IH*50 
50 CALL GIMOVE(IH,IV»103B.IDRSV> 

CALL GITC0N(NC0N»IH*1V> 

IF(M) 55»36»55 
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55 CALL GIMOVE<-2040»2040»1B»IGOOD) 

CALL GIMOVE(-2040»-2040,1B,ITRY> 

M=0 

GO TO 36 
49 M=l 

CALL GITCON(NCON*IH»IV) 

iF(IABS(lH),Lf.l6.AN0.IABS(IV).LT.16)G0 TO 62 

CALL GIMOVE(-i08»170Q.7B.i;TRY> 

CALL GIHOVE(-2040«-2040»1B«IGOOO) 

GO TO 36 
62 CALL GIHOVE(-108*1200»7B*IGOOO) 

CALL GIMOVEt-2040»-2040,lB,ITRY> 

GO TO 36 
60 IHs^I^OO 

IV=0 

GO TO 50 
48 CALL GIABRT(NC0N»12HJ0B RELEASED* 12) 

STOP 

END 
0000000000000000000000 
XMPL 
SCR 

0000000000000000000000 
XMPL 

0000000000000000000000 
0000000000000000000000 

SCISSORED ARC 

CVERLAY(ABCO.O) 

PROGRAM CREATEdNPUT^OUTPUT) 

CALL AEXEC 

END 

OVERLAYd.O) 

PRCQRAK SCISR 

DIMENSION IBUf(64).IHK5), I VI (5) ♦ IH2<5) . I V2(5) , JkH5) .UVi (5 ) . 
iJH2(5),JV2(5).IBCD(3)f INST(B).IAXS(2) 

DATA(IKST(!J,I«1,5,4)/40HPICK 5 CHARACTERS AND S AS X AXIS' LABEL » 
1 40HTHEN 5 CHARACTERS AND S AS Y AXlS LABEL / 

MBYTE*310 

NBYTE»0 

NC0N»9 
600 CALL GICNJB(NCON) 
C SET HASKS 

DO 700 1*1,5 

N«2**U«1> 
700 CALL QIMASK(NCON,0,N,N) 
C ATTACH CONSOLE 

C DISPLAY REPEAT BUTTON AND SQUARE PLOT FRAME AND EN£ l*OB EUTTCN 

CALL OLRSET(»l20.0««1200.102B#IBUF,NBYfE>BYTE) 

CALL QUAN(6HREPEAT l 6,lBUF.NBYTE',MBYTE) 

CALL GIDtSPCNCON, iBUFt-NBYTE'. !RPtt30Bi44) 

CALL QLSSET(l000,-i000,2i IBUF. NBYTE, MBYTE) 

CALL 3L8ieS{'tOOO,,«1000,«1000»-l6t)0,i»7777B,IBUF,KBYTE,frBYfE') 
CALL QLlEq(«lOO O ,1000>l) 
CALL QlfiGdOOO, 1000,1) 
CALL QLSE8(1000, ? lOOO»n 
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CALL GIDISPCNCON, IBUF.NBYTE.IFRAM) 
CALL GLRSeT{»l280i-i30o'.l02B.IBUF.NBYTE'.M8YTE) 
CALL GLANC7HEND J0B.7, IHUF,NBYTE»MBYTE) 
CALL GIDISPCNCON, I BUF, MBYTE. JBEND, 308,33) 
C DISPLAY SCISSORED ARC AND SCISSORED LINE 

CALL Gt ARC ( 0, 0, 100 0. 10 OS. 1080., -1080,'. 1600., 0.»0,,»16 00.. KSHCW, 
1IHC, IVC.IH1.IV1.IH2.IV?) 

IF(KSHCW,EQ.0)GOT0 800 

CALL GLRSET(lHl.IVl,2,IBUF.^BYTE.MBVTE) 

CALL GUARCG<KSH0W.IHC.IVC,IH1,IV1,IH2.IV2,7777B, 
ilBUF.NEYTE, MBYTE) 

CALL GIDISPCNCON.IBUF.NBYTE.IARC) 
80 CALL GLLlNE(0,0.l0OD.lO0O.«80C.'.16..12O0..»24.,KSHCW,JI-i, JVl, 
UH2.siV2) 

IF(KSHCW,EO.0>GO To 90o 

CALL GLRSET<JHl.JVl.2,I8UF,N8YTE.MByTE) 

CALL GLSEGS< JHl.JVi, JH2, JV2.1.7777B. IBUF.NBYTE.MEYTE) 

CALL GIDISP(NC0N,IBUF.N8YTE,LIN) 
C DISPLAY A FONT WITH % AS EJM CHARACTER 
900 CALL GFONTACNCON, 0,1500, IA*IB) 

CALL GlE0M(NC0N,lR$,8.1i) 
C DISPLAY INSTRUCTIONS 

CALL GLRSET(»650,-i4 00,3,iauF,N8YTE.MBYtE) 

CALL GL AN ( INST (1), 40, I8UF,N8YTE. MBYTE) 

CALL GLRSET ( »650, "150 0,10 39. I BUF.NBYTE, MBYTE) 

CALL 8LAN< INST (5 >#40»IBUF,'JBYTE. MBYTE > 

CALL GIDISPtNCON, IBUF, (MBYTE, INFOR) 
C ACCEPT FONT INPUT ONE CHARACTER AT A TIME 

K = 
100-0 NCs6 

CALL GICLR(NCON) 

CALL GIANS(NCON,6,1400,l20n> 
1100 CALL GIBUT(0,NCON,IDDT,IDDC> 

IF(IDDC.GE,33)G0 TO l5on 

IF(IBDC.NE,ll)GO TO llQf) 

CALL GIANE(NCON.NC.IBCD) 
C TEST FCR AT LEAST ONE CHARACTER 

IFCNC.EG.UGO TO 1000 

NC=NC»1 

IF(K.NE.0)GO TO 1200 
C DISPLAY AXIS LABELS----X THEN Y 

CALL GLRSET(-48.-l200.102B.IBUF.NBYTE.MBYTE) 

K*K*1 

GO TC 1300 

1200 CALL GLRSET(*1150.0,2*ISUF. KBYTE, MBYTE) 
K*K*1 

1300 CALL GLANCIIICD.NCjIBUF.NBYTF, MBYTE) 

CALL GIDISPtNCON, JBUF.NBYTE.IAXSU)) 

IF(K,EC.l)GO TO 10OO 
C WAIT FCR REPEAT BUTTON TO BE PICKED 
1400 CALL GICtR(NCON) 

CALL GIBUTCO,NCON.IDDT,IDDC) 
1500 IF(IDDC.NE,44,OR,IDDC,NE,33)GO TO 1400 
C CLEAR CONSOLE FOR A REPEAT RUN OR E^D JOB 

IF(IDDC.E0,44)G0 TO 60o 

CALL GLRSET(1100,«1300,2, IBUF.NBYTE. MBYTE ) 

CALL GLANC9HJQB ENDED, 9. IBUF.NBYTE, MBYTE) 

CALL GIDISP(NCON,lBUF,NBYTE,MSG) 

CALL GICNRLCNCON) 

STCP 

END 
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SAMPLE DATA HANDLER FILE DUMP B 



This is a data handler dump from the circuit design program which begins on page A-24. As 
the following listing shows, each dump produced by a call to DMDMP is preceded by a line 
stating the relative number of the dumped block (decimal) and the amount of empty space 
within it (octal). Each bead in a block is preceded by a line stating its relative index number 
within the block (decimal). Continuation beads are marked and pointers to them are given 
after the printout of each file block. Word numbers within a bead are octal numbers. 

Refer to page A-26 for a description of the information packed in each bead. A description 
of the first four beads of the dump is intended to illustrate reading of data handler dumps. 

Bead 1 describes a node with one lead; the value 43000 points to the next node, and the 
pointer to the right element is 42000. The coordinates of the center of the circular node are 
(-1440 8 , 1440 g ). 

Bead 2 describes a horizontal line short from the node at 41000 into the node at 43000. 

Bead 3 describes a node with three leads and the next node is at 45000. The left element is 
at 42000, the right is at 44000, and the down element is at 54000. The center coordinates 
of the node are (-570„, 1440„). 

Bead 4 describes a horizontal resistor from the node at 43000 into the node at 45000. 
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td 
i 

to 



DUMP 0^ HMO ui\MDlE a FILfi - 

BLOCK 0001 FMPTV SPACE oor& 
BE»D 001 



ST«M 



000001 00030 COCaO 301 00007 
800005 OOOuC CCCOD 00000 00000 
000012 OOOJO 00C00 O00OC 01«f*f0 



OUOuO 00000 OjOOJ 00031 
000037*00030 00030 03333 42000 



00000 00000 OOGOO 43(100 
(0000 00000 ODOOO 00000 



00000 00000 00022 00022 
77777 77777 77777 76337 



BE»D 002 



0030!?1 
000005 



OOOOl uOCUO OOOOC 00005 

oooar ocosa ooooo oootio 



00000 00000 OuOOJ 41000 
00030 30000 OJ033 00030 



coooo ooooo ooooo 43ooo 



00000 ODOOO 00022 03023 



BESO 0C3 



000001 00030 OOPHO OOOIU 00007 

000005 ouoao ooooo ooaoc ooooo 

000011 77777 77777 77777 77207 



00000 OOOOO 03003 00003 
OOOOO 30000 OJOOQ 1*2000 
OiiOOO ODD JO OuOOO Dl^S 



caooo oooco ooooo 45300 

OOOOO OOOGO 30000 44uOO 



OOOOO OOOOO 00022 0002<t 
30000 OOOOO 00030 54000 



BE«D 0C4 



000001 
000005 



00030 ooooo ocaoo oooni 

17317 64000 OCO30 OOOOO 



OOOOO OOOOO 03033 43300 
03300 OOOOO 0ti322 03053 



G0030 OOOOO OOOOO 45000 



30030 OOOOO 30022 03025 



009001 00030 OOOOO 00001 30037 

000095 OOOOC 0OC30 OOOOt 00)00 

oooon oaooo ocoao ocaot ooaeo 

BEAD 306 



OOOOO OOOOO 03333 00033 
00030 OOOOO 33030 44030 
OQOOO ODQOD 03033 01440 



03030 OOOGO QGOOO 47000 
00030 OOOCO OOOOO 46330 



03000 OOOOO 00022 0U026 
33000 30000 00030 56000 



000031 
000005 



03030 OOOOO OOOOC 300^1 
17317 61*000 OCOOO 3 COCO 



03300 33030 03003 45030 
OOOOO OOOOO 0o022 00O57 



COOOO 03000 OOOOO 47000 



03000 00003 00022 00027 



BEan or.7 



000001 00030 OOOOO Q030C 00007 
000005 00030 OOfOO OOOOl 03000 
000011 OOOOC 00030 00030 00730 



03000 33000 03003 00003 
03330 33000 03000 46033 
03000 OOOOO 03303 01440 



C0003 OOOCO 03000 51000 
00033 03000 00030 53030 



30000 00030 00022 03030 
03000 OOOOO 00031 02000 



RE90 00") 



000001 
000005 



00030 OOOOO 0003L 30005 
03030 CGOL'O OOOOO 00300 



OOOOO ODOOO Od0D3 47000 
00300 OOOOO 03333 30030 



00003 OOOOO OOOOO 51030 



OOOOO OOOOO Oa022 00031 



J*. 

OS 
IS5 

CD 
OJ 

o 
o 

ft) 

< 



BE8D 009 

oooooi nooao oaooo ntooo 00007 

003005 00030 00003 00330 03000 

000011 03030 OOOOO OOOOO 01600 

head 013 mrasEn 

BESD Oil 

000001 00030 uflOOO OCOOl 00007 

000005 00030 00030 OOOOC OOOOO 

000012 00030 3CP33 0130C 33570 



00033 33000 0JQ30 03001 
03000 03030 30333 50U30 
00030 OOOOO OJOOO 01440 



OOOOO OOOOO 03033 00331 
300307*03300 ODOOO 03001 04009 



00033 03000 33000 53003 
00030 OOOOO OQOOO 3300O 



COOOO OOOCO OOOOO 55000 
C3033 09000 03000 03003 



03300 OOOOO 00022 D0032 



30000 00300 00022 00334 
77777 77777 77777 76337 



W 

CO 

w 
o 

o 

w 

(T> 
<! 



BEAD 012 

000001 
000005 

BEAD 013 

000001 
000005 
000011 

BEAD 01* 

000001 

000005 



00000 00000 OOOOC 3000* 
17174 00000 0000C 30000 



ooooo cdoco noooc 00007 

00000 00000 00000 5*000 
77777 77777 77777 77207 



00000 00000 00000 0000* 
1717* 00000 OOOOC 30000 



BLOCK 0002 EMPTY SPACE 0072 

BEAD 001 

000001 00000 00000 OO0OC 00007 
000005 00000 00000 30000 56000 
000011 00000 00000 OOOOC 00060 



BEAD 002 

000001 
000005 

BEAO 003 



00000 00000 0009C 0000* 
1720* 00000 OOOOC 00000 



00000 00000 OoOOO 43030 
03000 00000 03022 00063 



03300 OOOOC 0U0OO O0U33 

ooooo ooooo ouaoi 0*000 

00300 00030 03003 00570 



03000 OOOOC 3u003 *5000 
00000 00000 0O022 00067 



ooooo 09000 ojooo 00033 

00300 00030 0J001 35030 
OOOOO 30000 03003 00570 



00330 30000 33333 47003 
00300 OOOOO 0j022 00073 



COUOQ OOOOO OOOOO 55U00 



OOOOO OOOOO 330D1 01S00 



00033 OOOOO 00001 33030 



03000 OOOOO 00022 33035 



C3000 30000 00001 31000 OOOOO 30000 00022 00036 

COOOO OOOCO 03001 05003 03000 OOOOO 00030 OOOOO 



33000 OOOOO 03022 00037 



03000 OOOOO 00001 33000 03000 OOOOO 03022 030*3 

03003 330CO 30001 36000 OOOOO OOOOO 03030 03300 



30000 OOOOO 00022 000*1 



000031 00030 OOOOO OOOOC 30007 
000005 OOOOC OOOOO 00001 32000 
000011 OOOOO 00003 OOOOG 00730 



BEAO no* 

000001 
003005 

BEAD 005 

000031 
003005 

BEAO 0.06 

00OO01 
000005 

BEAD 007 



OOOOO 00030 OCOOt 00005 
00030 OOOOO OOOOC 33300 



00030 ooooo oooat 00005 

00030 COOOO OCOOt 33030 



00030 OOOOO OOOOC 30005 
00030 ocnoo OOOOC ooooo 



30300 33330 Ou993 33333 
00030 03009 03091 06000 
03030 OOOOO 00003 00570 



03030 OOOOO 33003 53030 
39030 03000 03003 03030 



03000 OOOOO OJOOO 55000 
33030 03030 03339 00090 



OOOOO OOOOC 03031 01030 
00999 0303(1 OjOJO 00090 



00033 OOOOO 3C001 10030 OOOOO OOOOO 33022 000*2 

C3033 300G0 00001 07u90 03000 00300 00090 OOOOO 



00039 OOOOO 00003 55000 



COOOO OOOCO 03001 31090 



COOOO OOOOO 03001 03000 



09300 30000 30022 300*3 



39000 OOOOO 00022 030** 



99090 OOOOO 06022 000*5 



a 



000091 
000005 

BEAO 008 

003001 
000005 
000011 



30030 09000 OOOOO 00905 
00030 OOPOO OOOOC OOOOO 



00030 00009 OOOOO 00007 
OOOOO OOOOO OOOOC 90000 
OOOOO OOOOO OOOOC 91600 



09930 33009 03901 03030 
00090 09000 03003 00009 



09000 OOOOO 03000 00001 
OOOOO OOOOO 03001 07090 
OOOOO OOOOO 03039 00570 



COOOO 03000 00001 19000 



99999 90000 03022 000*6 



COOOO OOOOO OOOOO OOOOO 03000 OOOOO 00022 000*7 

COOOO OOOOO OOOOO 00300 



td 
i 



DUMP OP DATA HANDIE* FILE - STAN 

BLOCK 0001 FHPTV SPACE 0014 

BEAO 001 

000001 00000 00000 00000 00007 
080005 00000 00000 OOOOC 00000 
000012 00000 00000 00000 01440 



00000 00000 00000 00001 
000007-00000 00000 OJOOO 42000 



00000 000G0 00000 43000 00000 00000 00022 00022 
OOOOQ 00000 00000 00000 77777 77777 77777 76337 



BEAD 002 

000001 
000095- 



00000 00000 00000 00005 

ooooo ooooo ooooc ooooo 



03000 30000 00000 41000 
00000 00000 OdOOO oocoo 



00030 OOOOO OOOOO 43000 



OOOOO OOOOO 00022 00023 



BEAO 003 

000001 OOOOO OCOOO OOOOO 00007 

000005 ooooo ooooo ooooo ooooo 

000011 77777 77777 77777 77»07 



OOOOO 00030 OJOOO OOQ03 
OOOOO OOOOO OOOOO 42000 
OOOOO OOOOO OOOOO 0141*0 



OOOOO OOOOO OOOOO 49000 
COOOO OOOOO OOOOO 44000 



QOOOO OOOOO 00022 00024 
09000 OOOOO OOOOO 54000 



BEAO 004 

0B0001 
0B0O05 



OOOOO OOOOO OOOOO 00091 
17317 64000 OOOOO OOOOO 



OOOOO OOOOO 00009 43000 
OOOOO OOOOO 0002? 00053 



COOOO OOOOO OOOOO 45000 



09000 OOOOO 00022 00025 



BEAD 005 

000001 OOOOO OOOOO OOOOC 00007 

000005 OOOOO OOOOO OOOOO OOOOO 

000011 OOOOO OOOOO OOOOC 00060 



OOOOO OOOOO OjOOO 00002 
OOOOO OOOOO OJOOO 44000 
OOOOO 90000 OOOOO 01440 



OOOOO OOOOO OOOOO 47000 
COOOO 03000 OOOOO 46G00 



J9000 OOOOO 00022 00026 
OOOOO OOOOO 90000 OOOOO 



BEAD 006 

000001 
000005 

BEAD 007 



00030 OOOOO OOOOO 00001 
17317 64000 OOOUO OOOOO 



000001 OOOOO OOOOO 00001; 00007 
000005 OOOOC OOOOO OOOOO 30000 
000011 OOOOO OOOOO OOOOC 00730 



00030 00030 00033 45U00 
OOOOO OOOOO 00022 00057 



OOOOO 90000 OOOOO 00093 
OOOOO OOOOO OJOOO 46000 
OOOOO OOOOO OOOOO 01440 



COOOO OOOCO OOOOO 47000 



OOOOO 00060 OOOOO 51000 
OOOOO OOOUO OOOOO 50000 



03000 OOOOO 00022 00027 



QOOOO OOOOO 00022 00030 
OOOOO OOOOO 00301 02000 



BEAD 008 

000001 
000005 



OOOOO OOOOO OOOOC 00005 
OOOOO OOOOO OOOOC ooooo 



OOOOO OOOOO OOOOO 47000 
OOOOO 30000 OJOOO ooooo 



OOOOO OOOOO OOOOO 51000 



OOOOO OOOOO 00022 00031 



05 
INS 

CO 

w 
o 

o 

w 

< 

a 



BEAD 004 

000001 OOOOO OOOOO OOOOO 00007 

000005 ooooo ooooo ooooo ooooo 

000011 00030 OCOOO OOOOC 01600 



BEAD 010 ^ELEASFO 
BEAD Oil 



000001 OOOOO COOOO OOOOO 00007 

000005 OOOOC ooooo ooooo ooooo 

000012 00030 OOOOO OOOOC 90570 



OOOOO OOOOO OOOOO 00001 
OOOOC OOOOO 00003 50030 
OOOOO 03000 OOOOO 01440 



OOOOO OOOOO OJOOO 00031 
333007*00000 03030 OJ001 04030 



COOOO OOOOO OOOOO 53000 

OOOOO ooooo ooooo ooooo 



03000 00030 00022 00032 



00003 33000 OOOOO 55000 30000 OOOOO 00022 00034 

COOOO OOOOO OOOOO 00009 77777 77777 77777 76337 



if* 


BEAO 012 


to 

<r> 

CO 


000001 ! 
•0000? 


o 

o 


BEAfl 013 


(V 
< 


000001 1 
000009 i 



a 



oooao ooooo ooouo oooo<* ooooo ooooo ooooo 1*3030 caooo ooooo ooooo 55qou ooooo ooooo 00022 00035 

17171* OOOaO OOOOC 90000 OOOOO OOOOO 00022 00063 

OOOOC OOOOO OOOCO 00007 OOOOO OOOOO 00003 00002 COOOO OOOCO 00001 33003 OOOOO OOOOO 00022 00036 

OOOOO UODOO OOOOO 5<*000 00300 OOOOO OuOOl o«*ooo COOOO ooooo ooooo ooooo 
000011 77777 77777 77777 77207 OOOOO OOOOO OJOOO 00570 

BE»D OH* RELFBSEP 

BLOCK 0002 EMPTY SPACE 0120 

BEAD 001 SELEASEn 

BEAD 002 

000001 OOOOO OOOOO OOOOC ODOOl* OOOOO 30000 OJOOO <»7000 COOOO OOOOO 00001 Q3C00 03000 OOOOO 00022 000<*1 

000005 1720<» OOCOO OOOOC OOOOO 00030 30000 00022 00073 

BEAD 003 

Ofloooi ooooo oooao nooot 00007 ooooo ooooo ooooo 00002 ooooo ooooo 00001 iouoo ooooo ooooo 00022 000^2 

000005 OOOOO OOOOO 00001 02000 00030 OOOOO OjOOO ooooo OOOOO OOOOO 00001 07000 OOOOO 30000 OOOJO ooooo 

003011 OOOaO 00030 0003T 00730 000 00 03000 JOO J 00570 

BEAO 00<» 

000001 OOOOC OOOOO OCOUO 30005 OOOOC OOOOC OJOOO 53000 00030 OOOCO OOOOO 55000 J30EI0 OOOOO Qn022 0Q0<*3 

000035 OOOOO OOCOO OOOOC OOOOO OOOaO 03000 00003 ooooo 

BEAD 005 RELEASED 

BEAO Olis SELFSSFn 

BEAO 007 

000001 OOOOO OOOOO OOOOO 00005 OOOOO OOOOO 00001 03030 COOOO OOOOO 00001 13000 30000 00090 00022 000<*6 

000005 OOOOO OOOOO OOOOO ooooo ooooo ooooo ooooo ooooo 

BEAD 004 

000001 OOOOO 0000000000 00007 OOOOO OOOOO OJOOO 00031 OOOOO OOOCO OOOOO OOOOO OOOOO OOOOO 00022 0001*7 

.000005 OOOOO OCOOO OOOOC 00300 00300 00030 0J001 07030 COOOO 030C0 OOOOO 30000 

000011. OOOOO OOOOO OOOOC 31600 OOOOO 00030 OJOOO 00570 






i 



OU*P OP DATA HANdLE" FILE 



BLOCK 0001 EMPTY SPACE 00?? 



STAN 



9EA0 001 

000001 00000 0G000 J ( 00007 

ooooas ooooo ooooo oooae ooooo 

00001? 00000 OOCOO OOOOO Ql't'tO 



OOOOO OOOOO OjOOO 00001 
000007*00000 00030 OOOOO 1.2000 



GOOOO OOOOO 90000 43000 03000 OOOOO Ou02? 00022 

OOOOO OOOCO OOOOO 33030 77777 77777 77777 76337 



HEAD 002 



000001 

ooooo? 



oooiic orroo aoooi 00305 
OOOOO OOCOO 00001 ooooo 



OOOOO 03000 OJOOO 1.1030 
OOOOO 33000 OjOOQ OOOOO 



COOOO OOOOO OOOOO 1.3000 



OOOOO OOOOO 03022 03023 



9EA0 003 

000001 OOOJO OOOOO OOOOC 30007 

1)0000? 00030 OOOOO 0000d ooooo 

000011 77777 77777 77777 77207 



OOOOO 00030 OJOOJ 00033 
OOOOO OOOOO 0j003 42030 
OOOOO 03030 OJOOO 011.1.0 



00003 03000 03000 1.5000 OOOOO OOOOO 0002? 00021. 

COOOO OOOGO OOOOO i*ifuUQ 03000 OOOOO OOOJO 54000 



BEAD 004 

000001 
000035 



OOOOO OOOOO OOOOC 00001 
17317 61.000 OOOOO OOOOO 



OOOOO 00030 OJOOO (.3030 
OOOoO 33000 0j3?2 00053 



E0030 OOOOO OOOOO 1.5000 



OOOOO 30000 030?2 00025 



9EA0 005 

000001 OOOOO OOOOO OOOOO 00007 

009005 ooooo ooooo ooooo ooooo 

000011 OOOOC OOOOO B0Q3C 00060 



OOOOO 33000 OJOOO 00032 

ooooo ooooo ouooa v»ooo 
onooo ooooo ooooo oiho 



00030 OOOOO OOOOO 1.7003 30000 OOOOO 00022 00026 

COOOO OOOCO OOOOO 1.6000 30000 OOOOO 00030 ooooo 



8EA0 006 

000001 
000005 

BEAD 007 



03030 OCOOO OOOOC 00001 
17317 61.000 OOOOC OOOOO 



000031 OOOOO CCOOO OOOOC 00007 
000035 00030 OOOOO 3G000 OOOOO 
000011 00030 OOOJO OOOOC 00730 



8EA0 008 

000001 
000005 



00030 OOOOO' OCOOG 00005 
OOOOO OOOOO 00030 00300 



OOOCO OOOOO 0d033 1.5030 
OOOOC 03000 OJ02? 00057 



OOOOO OOOOO 00030 00033 
03000 OOOOO 0J333 1.6000 
OOOOO OOOOC OOOOO 011.1.0 



30000 OOOJO OuOOO 1.7030 
OOOOO 03000 OJOOO OOOOO 



COOOO OOOGO 30000 1.7003 



00033 OOOGO OOOOO 51000 



J3000 OOOOO 30022 00027 



C0033 OJOOO OOOOO 51030 03000 OOOOO 0002? OJ030 
00030 OOOCO OOOOO 53000 OOOOO OOOOO 00001 02000 



OOOOO OOOOO 00022 00031 



05 
CO 
CD 
03 

o 
o 

CD 



d 



HEAD 009 

000001 00030 OOOOO OOOOC 00007 
000035 OOOOO OOOJO OOOOC OOOOO 
003011 00030' OOOOO OOOOO 01600 

BEAD 010 
CONTINUATION peao 

000001 OOOUC OOOOO 00031 1.1300 

8EA0 Oil RELEASED 



30000 00030 OjJOO 00031 
OOOOO OOOOC OJOOO 50000 
00030 03G30 OJOOO flli.i.0 



OOOOO OOOOO Od022 30137 



COOOO OOOOO OOOOO 55000 30000 OOOOO 00022 0J032 

03330 OOOOO OOOOO 33000 



COOOO 03000 JuOOQ 00003 



03000 OOOOO OJOOO OOOOO 



*> 


BEAO 01Z 


<7s 

to 

CO 

to 


000001 l 
00000? 


o 

o 


BEAO 013 


CD 
<! 


000001 1 
00000? ' 



d 



OOOOO 00000 OO0OC 00004 
17174 00000 00000 00000 



0000G 00000 OOOOli 00007 

00000 00000 0000C 5i»000 

000013 00000 00000 00000 00570 

BEAO 01<t RELEASED 



00000 81000 03000 43030 
00000 00000 0uD22 00063 



10000 OOOOO 0J003 00002 
30000 00030 OJOOi) 00030 



00000 00000 00003 55000 



OOOOO 030GO 00001 03000 
000010*00303 00000 03001 35U03 



00000 00000 83822 00035 



30030 00000 00022 00036 
77777 77777 77777 77207 



BLOCK 0032 EMPTY SPACE 00C6 

BEAD 001 

000001 00000 00000 00030 Q0337 
000005 00000 00000 00001 05000 
000011 77777 77777 77777 77207 



BEAO 002 

000001 
000005 

BEAO 003 



00000 00000 OOOOf 00302 
17337 64000 OOOOC 30300 



00300 03000 00003 00033 
30000 03030 03001 13030 
77777 77777 77777 77717 



00000 00300 33033 47003 
33330 0003C 3u022 G3123 



03030 03000 00001 12030 
03030 00000 00001 14u00 



03033 00003 33001 33330 



30000 00000 00022 00077 
30000 00000 33330 03300 



33000 00300 03028 03100 



000001 00000 00000 OOOOli 30007 

000005 0003C 00000 00001 02300 

000011 00000 00000 0000C 00730 

BEAD 004 mFusen 



BEAD 005 

000001 
000005 

BEAD 006 



00030 00030 OflOOC 03002 
17307 64003 BCOul 03000 



00030 03000 OuOOO 00002 
00300 03000 3J033 33330 
D003G 03000 0*008 00570 



OQOQO OOOOC 1 3J303 55030 
30000 30000 03022 30114 



C0033 00000 00001 13000 
00033 03303 00001 37003 



C3033 330C0 OtiOOl 31U03 



33000 00000 00022 00342 
33000 00300 OOOJl 11030 



30000 30303 00322 03376 



000001 00030 00C30 00030 03307 
000005 00030 00000 00030 00000 
000012 77777 77777 77777 77717 



33030 30030 0U0O3 00331 
300007*00330 OOOOP 33331 13033 



P0000 30000 30001 31u03 
00033 33BG0 33000 33033 



30300 30000 03022 00375 
77777 77777 77777 76337 



BEAD 007 

000001 
003005 

BEAD 008 



00000 00000 OOOOC 00305 
OOOOO 00000 0003C 00000 



00000 OOOOO OjOOI 03000 
00000 33033 33303 00330 



00030 OOOOO 00001 13000 



31000 00000 00022 03046 



000001 0000G OOOOO OOOOC 00307 

000005 OOOOO OOOOO OOOOC OOOOO 

OOOOli OOOOO OOOOO OOUOt 01600 

BEAD 009 



33330 OOOOO 03033 00031 
33000 OOOOC SuOOl 07030 
30000 00030 03333 00570 



03030 03000 03001 36000 
G0333 30000 30030 03033 



33300 OOOOO 00022 00047 



td 
i 



0030 31 
000035 

BEAtl 010 



30030 00003 OOOOC 00002 
17354 70400 OOOOC 00300 



OOOOO 03000 3J331 33033 
30300 03000 34322 83124 



03033 00800 00001 12033 



OOOOO 00300 03022 00101 



tjj Morooi ooooo ooooo ooaao 00007 00000 00000 00000 00003 oooao 00000 00001 15000 00000 00000 00022 00102 

1 800005 OOOOO OOOOO 00001 11000 OOOOO OOOOO 01)001 16000 OOOOO OOOOO 00001 17000 ooooo ooooo ooooo ooooo 

03 800011 00000 OOOOO OOOOO 00730 77777 77777 77777 77717 

bead on 

000001 00000 OOOOO 0000P 90005 OOOOO 00000 00001 06000 OOOOO OOOOO 00001 01000 03000 OOOOO 00022 00103 

000005 ooooo ooooo ooooc ooooo ooooo ooooo ouooo ooooo 

BEAD 012 

080001 OOOOO OOOOO OOOOG 00005 OOOOO 09000 00001 01000 OOOOO OOOOO 00001 15000 OOOOO OOOOO 00022 00104 

000005 OOOOO OOOOO OGOOt OOOOO OOOOO OOOOO OdOOO ooooo 

BEAD 013 

000001 OOOOO OOOOO OOOOC 00007 OOOOO OOOOO OJOOO 00002 COOOO OOOCO 00001 tldOO OOOOO OOOOO 00022 00105 

000005 OOOOO OOOOO OOOOG OOOOO OOOOO OOOOO OdOOi 1<»000 COOOO OOOOO 00001 16000 OOOOO OOOOO OdOOO ooooo 

eoooii noooo ooouo ooooo 00060 77777 77777 77777 77717 

BEAD Oil* 

000001 OOOOO OOOOO OOOOC 00005 OOOOO OOOOO 00001 15000 COOOO 03000 00001 120U0 OOOOO OOOOO 00022 00106 

000005 OOOOO OOOOO OOOOG OOOOO OOOOO OOOOC OJOOO ooooo 

BEAD 015 

000001 OOOOO OOOOO OOOOO 00005 OOOOO OOOOO 00001 12000 

CONTINUE AS BLOCK 0001 BEAO 010 

BCOCK 0003 EMPTY SPACE 01f3 

BEAD 001 

000001 OOOOO OOOOO OOOOG 00007 30000 OOOOC OliOOa 0O0O1 OOOOO OOOGO OOOOO J3bl)0 OOOOO OOOOO 00022 00110 

000005 OOOUO OOOOO OOOOG OOOOO OOOOO OOOOD 0J031 17000 OOOOO OOOOO OOOOO 03000 

000011 OOOOO OOOOO OOOOO 31600 77777 77777 77777 77717 



Mi. 

05 

CO 

CD 

to 
o 
o 

S3 

0) 

<i 



MISCELLANEOUS CODING HINTS 



ALPHANUMERIC INPUT GIANE (NCON, IALF, NC) 

GIANE allows the calling routine to end alphanumeric input and transfer the alphanumeric 
buffer to IALF. It also transfers the number of characters returned in NC. 

If a fixed number of characters are always returned (example, one digit), DECODE can be 
used to put the display code digit in an integer format on a fixed FORMAT statement: 

CALL GIANE ( NCON, NC, IALF) 
DECODE (1,100, IALF) INT 
100 FORMAT (II) 

INT - is an integer digit converted from the display code representation (of an 
integer digit). 

If NC varies over a certain range (for example from 1 to 10), ENCODE can be used to 
construct a variable format to decode the integer. 

CALL GIANE (NCON , NC , IALF ) 
IF (NC .LT. 1 .OR. NC. GT. 10)20, 10 
10 ENCODE ( 5,100,SPEC)NC 

DECODE ( NC, SPEC, IALF) INT 



20 ... 
100 F0RMAT( 2H(I,I2,1H)) 

After statement 10, location SPEC contains the correct format for decoding NC integer 
digits from IALF. 

For example, if NC=4, the statement becomes 

ENCODE (5, 100, SPEC) A 
DECODE (4, SPEC, IALF) INT 



SPEC - contains 



(104) 



INT - contains the integer representation of the four display code digits from IALF. 
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ILLEGAL CHARACTERS 

Since illegal characters in the buffers of ENCODE and DECODE result in fatal FORTRAN 
errors, the parameters should be checked before calling these routines. 

For example, a display code 9 (44„) will cause a fatal error if decoded on an Ol (octal) 
format. Fixed formats should not be used if variable results are expected. 

ID WORD MANIPULATION 

IDWA and IDWB are 24-bit quantities used by the task return to assemble a task name for 
load and execution. 

AETSKR asks for the next button on the queue and assembles a left -justified display code 
task name. 



Bits 


59 - 


36 


IDWA 


Bits 23 


- 


Bits 


35 - 


18 


IDWB 


Bits 23 


- 6 



If the calling routine is to request a task whose name is in IDWA and IDWB after it has 
retrieved the button from the queue, ENCODE and DECODE can be used to pack the contents 
of the two words into a left-justified display code name. 

Example: 

IDWA = 000000TASK 

IDWB = 000000ONE 

DECODE (10 , 1 , IDWA) TEMPI 
DECODE(10,1,IDWB)TEMP2 
ENCODE (8,2, NAME )TEMP1 , TEMP2 

1 FORMAT(6X,A4) 

2 FORMAT (2A4) 

TEMP1=TASK000000 
TEMP2=0NE 00 

SUBROUTINE LINKAGE AMONG OVERLAYS 

System and user subroutines which are frequently called by different overlays of a graphics 
job may be included in the (0, 0) overlay. Although the routines will stay in memory 
throughout execution and the length of the (0, 0) overlay will be increased, the decks need not 
be included with any primary or secondary overlay decks if they are compiled and loaded with 
(0, 0); the binary text will not appear on the task file. 
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The following example deck and outline of the GPSL loader's overlay load will demonstrate 
linkage of subroutines among overlays. 

OVERLAY (A, 0,0) 
OVERLAY ( 1 ± , 1 2 , CNNNNNN ) 



A 

h 

h 

NNNNNN 



Example Deck: 



ZERO 



USEFUL 



NEEDED 



ONE 



SUB 



ONE ONE 



SUBB 



VDECK (0,0) 



is the name of GPSL loader save file 

is the primary overlay level 

is the secondary overlay level 

is an octal digit. If the C parameter is present, the overlay will be 
set NNNNNN words from the beginning of blank COMMON. If no C 
parameter is present, the overlay will be placed at the end of blank 
COMMON. If no blank COMMON is present, the overlay will be 
placed at the end of the (0, 0) overlay text. 



OVERLAY (A, 0,0) 

{PROGRAM ZERO 
CALL MAIN 
END 

{SUBROUTINE USEFUL 
RETURN 
END 

{SUBROUTINE NEEDED 
RETURN 
END 

OVERLAY(1,0,C200) 
(PROGRAM ONE 
CALL USEFUL 
<CALL SUB 

call subb 
[end 

{subroutine sub 
RETURN 
END 

OVERLAY (1,1) 

{PROGRAM ONE ONE 
CALL NEEDED 
CALL SUBB 
END 

{SUBROUTINE SUBB 
RETURN 
END 



>DECK (1,0) 



► DECK (1,1) 
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TWO 



SUBB 



{PVERLAY(2,0) 
PROGRAM TWO 
CALL USEFUL 
CALL SUBB 
END 

fSUBROUTINE SUBB 
< RETURN 
(END 



► DECK (2,0) 



The GPSL loader will read in all of the decks for OVERLAY(0, 0); in this case, the program 
ZERO and subroutines USEFUL and NEEDED. All linking will be done and loading completed 
by searching the library and filling in external references. If blank COMMON references 
are present, the largest blank COMMON reference will be placed immediately following 
OVERLAY (0,0). 

For the current example, assume that a 2000B word block of blank COMMON is placed im- 
mediately following OVERLAY(0, 0). Once the building of OVERLAY (0, 0) is complete, it is 
written on file A. 

The next OVERLAYd, 0) is read into the same area vacated by (0, 0). However, virtual ad- 
dress relocation is performed on the program text. In the current example, the base address 
for relocation of (1, 0) is the origin of blank COMMON plus 200B. 

OVERLAY(l, 1) is processed in the same manner. The base address for relocation is the 
last word address plus one (LWA+1) of OVERLAYd, 0). The base address for relocation of 
OVERLAYS, 0) is the LWA+1 of the 2000-word blank COMMON block associated with (0, 0). 

External references for OVERLAY(1,0) are satisfied by searching the routines available in 
(0, 0), and the library. 

In the example, assuming that SUBB is not a library routine, the deck for SUBB is not pres- 
ent in OVERLAYd, 0) and the deck is not present in OVERLAY (0, 0), SUBB will be an unsat- 
isfied external in OVERLAYd, 0). 



The subroutines in memory after the task call of ONE and ONEONE would be: 



ZERO 


-\ 




SYSTEM 




MAIN 


-0,0 


SIO$ 


USEFUL 




NEEDED 




ONE 


} i,o 


SUB 


ONEONE 


> 1,1 


SUBB 
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SYSTEM and SIO$ are routines loaded to satisfy externals in program ZERO (or any 
FORTRAN program). References in ONE and ONEONE to entry points of these routines are 
linked to zero -zero. The reference to USEFUL in ONE and the reference to NEEDED in 
ONEONE are linked to their occurrence in (0,0). The reference to SUB in (1, 1) is linked to 
its occurrence in (1, 0). Although SUBB occurs in (1, 1), it is an unsatisfied external in (1, 0), 
because the deck is encountered after the references for (1, 0) have been satisfied. 

The routines in memory after a task call to TWO are: 



ZERO 



SYSTEM 



MAIN 



SIPS 



USEFUL 



NEEDED 



TWO 



SUBB 




There are no unsatisfied externals. 

The (0, 0) OVERLAY remains in memory throughout execution. All routines included will be 
linked to any references in any other overlay. 

External references in secondary overlays ((1,1), (1, 2), etc. ) will be linked to their 
occurrences in the primary overlay with the same primary overlay number. 

INCLUDING SUBROUTINES IN THE (0,0) OVERLAY 

USER ROUTINES 

To include a user-written routine in the zero-zero overlay, the source deck must be com- 
piled and loaded with the main program of that overlay. However, the deck need not be 
included in any other primary or secondary overlay which calls that routine. 

SYSTEM LIBRARY ROUTINES 

There are two simple ways to include system routines in the zero-zero overlay: 

• FORTRAN callable routines may be included by placing a CALL name card in 
. (0, 0). If the call statement appears after the CALL MAIN card, it will never 
be executed; however, the routine will be loaded with (0, 0) and all other CALL 
name references will be linked to the routine's occurrence in (0, 0). 
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A COMPASS program in (0, 0) containing EXT name pseudo-ops will cause routine 
name to be loaded with (0, 0), as shown in the following example: 

Routine PSEUD compiled and loaded with (0, 0) 



IDENT 


PSEUD 


EXT 


GIDISP 


EXT 


GIERAS 


END 





This routine will cause GIERAS and GIDISP to be loaded with the (0, 0) overlay. 
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PARAMETERS AND CALL SEQUENCES 



GENERAL 

This appendix is a summary of IGS parameters and call sequences. The most common ID 
block parameters are: 



IBEAM 

IBUF 
ICODE 

IDDAD 

IDDC 

IDDT 

IH 
IMASK 



IR 



1STYLE 



±0 indicates light beam off 

±1 indicates light beam on in accordance with bit pattern in ISTYLE 

Item description buffer parameter 

Governs light- pen sensitivity, blink, and brightness of a graphics 
display item. ICODE is usuaLly expressed in octal (see Chapter 1). 

Associative address assigned by the system to a display item 

Q 

ID code word assigned by the programmer < IDDC < 2 -1 

ID-type code to specify how the queue handler will treat the button 
ID block. 

Horizontal axis coordinate 

Mask indicator code used by GIMASK where 

1 = ignore 

2 = single pick 
4 = string pick 
8 = button mask 

16 = marker 

Code to control GIBUT return 

= wait for button pick ID block to be queued 

1 = return to calling task immediately 

Determines appearance of a line segment 

0, -0.7777B = solid segment 

5252B = dashed segment 

6666B = broken segment 

7272B = center line segment style 
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IV Vertical axis coordinate 

MAD Display buffer associative address of a macro returned by the call 

MBYTE Maximum number of bytes programmer allows to be placed in IBUF 

^322 

NBYTE Number of bytes currently in IBUF; returned as a result of the call 

NC Number of characters from IBCD to be packed by the call 

NCON Number of the graphics console referenced through the call 

Undetermined parameters are required and a right parenthesis can terminate the parameter 
string any time after the required parameters. 

In the listings given below, an underline (— ) indicates that parameters are required. 

CONSOLE CONTROL 

Ref . Page 
GICNJB ( NCON ) 3_7 

GICNRL ( NCON ) 5_9 

DISPLAY ITEM OR MACRO CREATION 

GIDISP (NCON . IBUF . NBYTE . IDDAD . IDDT,IDDC,IDWA,IDWB) 2-8 
GIMAC ( NCON . IBUF . NBYTE . MAD) 3-2 

BYTE GENERATION FOR DISPLAY ITEM DESCRIPTIONS 

GURSET (IH, IV, J^C^, IBUF, NBYTE, MBYTE) 2-5 

GUSEGS (IHl,I3a,IH2,IV2,ISE^,ISTYI£,IBSIF,NBYTE,Iffini) 2 " 6 

GUSEGI (IM>IV1,ISTYI£,IBUF, NBYTE, MBYTE) 2-7 

GUSEG (IH,IV,IBEAM) 2-6 

GUSEGA (IH. IV. IBEAM .N. ISTYLE . IBUF. NBYTE . MBYTE ) 2-7 

GUARCG (R^HpW,IHC,IVC,IHl,na,IH2,IVl,ISTYLE,IBUF, 2-10 
NBYTE . MBYTE ) 

GUAN (IBCD,NC,IBUF,NBYTC,MBYTE) 2-9 

GUBYTE (JBYTE,L, IBUF, NBYTE, MBYTE) A-8 

GUMACG (MAD, L,IBUF, NBYTE, MBYTE) 3-3 
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DISPLAY EDITING 

GIMOVE (IH, IV, ICODE , IDDAD „IDDT , IDDC , IDWA, IDWB) 3-4 

GICOFY ( IDDADI . NCON , IH. IV, ICODE . IDDAD . IDDT . IDDC . 3-6 

IDWA,IDWB7~ 

GIERAS ( IDDAD(I) . IDDAD (2), IDDAD(36)) 3-6 

GIMACE ( MAD(l) , MAD(2) , . . .MAD(36)) 3-8 

SPECIAL ID BLOCK ASSIGNMENT 

GIKYBD ( NCON . IDDT, IDDC, IDWA, IDWB) 

GILPKY ( NCON . IDDT, IDDC, IDWA, IDWB) 3-4 

GIECM ( NCON . IBCD, IDDT, IDDC, IDWA, IDWB) 5-4 

GIPBUT ( NCON . I IDDT, IDDT, IDDC, IDWA, IDWB) A-26 

TRACKING CONTROL 

GITCON (NCON, IH, IV) 3-3 

GITCOF ( NCON . IH. IV) 3-5 

GITIMV ( NCON . IDDAD ) 3-3 

GITMMV ( NCON . MAD ) 3-3 

INPUT 

CONTROL 

GIMASK (NCON . IDDTC . IDDTS . IMASK) 3-9 

GICLR ( NCON ) 3-4 

PICK FETCHING 

GIBUT ( IR, NCON, IDDT, IDDC, IDWA, IDWB, IH, IV) 3-4 

GIFID (NCON, IDDT, IDDC, IDWA, IDWB, IH, IV) 4-8 

GIFSID (NCpN,N,IDDT, IDDC, IDWA, IDWB, IH, IV) 4-8 

ALPHANUMERIC 

GIANS ( NCON .NC.IH.iy) 5-5 

GIANE ( NCON .NC. IBUF ) 5-6 

VOLUNTARY JOB ABORT 

GIABRT ( NCON . IALF .NC) 3-8 
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GRAPHICS FUNCTION (6000 SERIES ONLY) 

FRAME-SCISSORING 

GULINE (IHCEN,IVCEN,IHC0R, IVC0R ,H1,V1,H2.V2.KSH0W. 5-3 

IH1,IV1,IH2,IV2) 

GUARC (IHCM,IYCM 5 IHCP£,IV^^,HC,TC,H1,V1,H2,Y2, 5-3 

KSHOW , IHC , I VC , IH1 , I VI . IH2 , I V2 ) 

DISPLAY FONT GENERATION 

GFONTA ( NCON ,IH,IV, IDADA , IDADB ) 5_ 4 

GFONTN ( NCON ,IH,IV, IDADN ) 5-6 

HARDCOPY FILE CREATION 

GIPLOT (NCON , IBUF , NBYTE . IDENT . ITYPE ) 

EXTRA PARAMETER IN CALL SEQUENCE 

Placing an extra parameter in the calling sequence is just as fatal as omitting a required 
parameter. For example: 

CORRECT 



CALL GIDISP (NCON, IBUF, NBYTE, IDDAD , IDDT , IDDC , - ) 
CALL G IDISP (NCON , IBUF , NBYTE , IDDAD , IDDT , IDDC ) 

WRONG 

CALL G ID ISP (NCON, IBUF, NBYTE, -0) 

CALL GIDISP(NCON, IBUF, NBYTE, IDDAD, IDDT, IDDC, IDWA, IDWB, -0) 

Parameter lists which are too short or too long will not be specifically diagnosed but will 
result in mode errors or nonsense stored in a data area or the entry address of an 1GS 
system subroutine. 

Care should be exercised in calling subroutines which return information. For example, 
IDDAD is the fourth parameter in the calling sequence to GIDISP. The display associative 
address will be returned to IDDAD 's location. 

WRONG 



CALL GIDISP(N CON, IBUF, NBYTE, -0) 
This causes the destruction of the contents of the location represented by the literal -0. 
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ANSWER KEY FOR REVIEW QUESTIONS 
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SOLUTIONS TO IGS CODING PROBLEMS 



Assume: 



NCON = 1 
MBYTE = 312 
Masks are 

1 = ignore 

2 = single pick 
4 = string pick 
8 = button pick 

16 = marker mask 

SECTION 2 

1. CALL GURSET (1000, 500, 106B, IBUF, NBYTE, MBYTE) 
CALL GUARCG (1, 500, 500, 1000, 500, 1000, 500, 

1 7777B, IBUF, NBYTE, MBYTE) 
CALL GIDISP (NCON, IBUF, NBYTE, IDDAD, 1) 

2. a. CALL GURSET (-120, -12, 103B, IBUF, NBYTE, 

1 MBYTE 

CALL GUAN (10HJ0HN SMITH, 10, IBUF, NBYTE, 
1 MBYTE) 

CALL GIDISP (NCON, IBUF, NBYTE, IDDAD) 

b. NAME = 10HJOHN SMITH 

CALL GURSET (-120, -12, 3, IBUF, NBYTE, MBYTE) 
CALL GUAN (NAME, 10, IBUF, NBYTE, MBYTE) 
CALL GIDISP (NCON, IBUF, NBYTE, IDDAD) 

3. a. CALL GURSET (-1500, -1000, 103B, IBUF, NBYTE, 

1 MBYTE) 

CALL GUSEGS (-1500, -1000, 0, -1000, 1, 5252B, 
1 IBUF, NBYTE, MBYTE) 

CALL GIDISP (NCON, IBUF, NBYTE, IDDAD) 

b. CALL GURSET (-1500, -1000, 103B, IBUF, NBYTE, 
1 MBYTE) 

CALL GUSEGS (0, 0,1500, 0, 1, 0, IBUF, NBYTE, 
1 MBYTE) 

CALL GIDISP (NCON, IBUF, NBYTE, IDDAD) 
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CALL GURSET (100, 100, 103B, ITRI, NBYTE, MBYTE) 

CALL GUSEGI (100, 100. 7777B, ITRI, NBYTE, MBYTE) 

CALL GUSEG (200, 0, 1) 

CALL GUSEG (0, 0, 1) 

CALL GUSEG (100, 100, 1) 

CALL GIDISP (NCON, ITRI, NBYTE, ITRNG) 



CALL GURSET (-100, 0, 103B, ISEME, NBYTE, MBYTE) 

CALL GUSEGS (-100, 0, -300, 0, 1, 0, ISEMI, NBYTE, 
1 MBYTE) 

CALL GUARCG (1, -200, 0, -300, 0, -100, 0, 0, ISEMI, 
1 NBYTE, MBYTE) 

CALL GIDISP (NCON, ISEMI, NBYTE, IDDAD) 



DIMENSION IH1 (3), IH2 (3), IV1 (3), IV2 (3) 
CALL GURSET (-300, 0, 3, IBUF, NBYTE, MBYTE) 
IH1(1)=-300 $IH2(l)=-200 $IV1(1)=0 $IV2(l)=-100 
IHl(2)=-200 $IH2(2)=-100 $IV1(2)=-100 $IV2(2)=0 
IH1(3)=-100 $IH2(3)=-200 $IV1(3)=0 $IV2(3)=100 
CALL GUARCG (3, -200, 0. IH1, I VI, IH2, IV2, ISTYLE, 

1 IBUF, NBYTE, MBYTE) 
CALL GUSEG (-200, 100, -200, 0, 1, 0, IBUF, NBYTE, 

1 MBYTE) 
CALL GUSEG (-300, 0, l) 
CALL GIDISP (NCON, IBUF, NBYTE, IDDAD, l) 



CALL GURSET (100, 300, 103B, IBUF, NBYTE, 
1 MBYTE) 
CALL GUSEGI (0, 0, 0, IBUF, NBYTE, MBYTE) 
CALL GUSEG (-25, 35, 0) 
CALL GUSEG (25, -35, 1) 
CALL GUSEG (-25, -35, 0) 
CALL GUSEG (25, 35, 1) 
CALL GUSEG (100, -12, 0) 
DISPLAY COORDINATE LABEL 
ICORD = 10H(100, 300) 

CALL GUAN (ICORD, 10, IBUF, NBYTE, MBYTE) 
CALL GIDISP (NCON, IBUF, NBYTE, IDDAD) 

CALL GURSET (125, 265, 103B, IBUF, NBYTE, 
1 MBYTE) 
CALL GUSEGI (125, 265, 0, IBUF, NBYTE, MBYTE) 
CALL GUSEG (75, 335, 1) 
CALL GUSEG (125, 335, 0) 
CALL GUSEG (75, 265, l) 
MOVE BEAM TO WRITE COORDINATE LABEL 
CALL GUSEG (200, 300, 0) 

CALL GUAN (9H(100,300) , 9, IBUF, NBYTE, MBYTE) 
CALL GIDISP (NCON, IBUF, NBYTE, IDDAD) 



(75,335) (125,335) 




F-2 
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8. CALL GURSET (-200. 400, 103B, IBUF. NBYTE, MBYTE) 

CALL GUSEGA (IH(1), IV(1), IBEAM(l), 6, 7 77 7B, IBUF, 
1 NBYTE, MBYTE) '' 

CALL GIDISP (NCON, IBUF, NBYTE, IHEX) 

SECTION 3 

1. CALL GIMAC (NCON, ITRI, NBYTE, ITRNGL) 

CALL GURSET (100, 100, 10 3B, ITRI, NBYTE, MBYTE) 
CALL GUMA.CG (ITRNGL, 1, ITRI, NBYTE, MBYTE) 
CALL GIDISP (NCON, ITRI, NBYTE, IDDAD, 8) 



(-200,400) (200,400) 



400.0K 



>(400,0) 



(-200,-400) (200,-400) 



( 100,100) 




(200,0) 



3. 
4. 



a. DO 10 I = 1,5 
N = 2 ** (1-1) 

10 CALL GIMASK (NCON, 0, N, N) 

b. CALL GIMASK (NCON, 0, 1, 1) 
CALL GIMASK (NCON, 0, 2, 2) 
CALL GIMASK (NCON, 0, 4, 4) 
CALL GIMASK (NCON, 0, 8, 8) 
CALL GIMASK (NCON, 0, 16, 16) 



CALL GICOPY (SQR, NCON, 500, 0, 103B, NEWSQ, 2) 



CALL GITCON (NCON, 200, 300) 
1000 CALL GIBUT (0, NCON, IDDAD, IDDT, IDDC) 
IF(IDDC.NE.200) GO TO 1000 



(500,0) 



CALL GITCOF (NCON, IHA, IVA) 



CALL GURSET (IHA, IVA, 103B, IBUF, NBYTE, MBYTE) 
CALL GUARCG (1, IHA -550, IVA -550, IHA, IVA, IHA, 
1 IVA, 0, IBUF, NBYTE, MBYTE) 
CALL GIDISP (NCON, IBUF, NBYTE, IDDAD, 2) 



CALL GURSET (-1000, -1000, 10 2B, IBUF, NBYTE, MBYTE) 
CALL GUAN (5HCLEAR, 5, IBUF, NBYTE, MBYTE) 
CALL GIDISP (NCON, IBUF, NBYTE, ICLR, 8, 2, 400, 
1 4RCLER) 



7. 11 CALL GIBUT (0, NCON, IDDT, IDDC) 
IF (IDDC. NE. 2) GO TO 11 
IF (IDWA. NE.400) GO TO 11 
IF (IDWB.NE.4RCLER) GO TO 11 



8. CALL GITCON (NCON, 300, 300) 
CALL GITIMV (NCON, IFENDER) 
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9. CALL GITCON (NCON, 100, 200) 
CALL GITMMV (NCON, MAD (3)) 



10. CALL GIMACE (MAD(l), MAD(2), MAD(3)) 
CALL GIERAS (LWHEEL) 




11. CALL GICNRL (NCON) 



12. CALL GURSET (-600, 0, 103B, IBUF, NBYTE, MBYTE) 
CALL GUARCG (l, -700, 0, -600, 0, -600, 0,-0, IBUF, 

1 NBYTE, MBYTE) ' ' \,.too jo ,>«oo.o> 

CALL GIDISP (NCON, IBUF, NBYTE, IDDAD, l) ^—^ /— -v 

CALL GICOPY (IDDAD, NCON, 500, -200, 103B,IDADl,l) (■ \ 

CALL GIABRT (NCON, 14HMOVE COMPLETED, 14) w^woopo.woo, 

END 

13. CALL GILPKY (NCON, 8) 

CALL GIBUT (0, NCON, IDDAD, IDDT) 
CALL GITCOF (NCON, IHNEW, IVNEW) 
IF (IABS (IHNEW -IH).GT.100) GO TO 20 
IF (IABS (IVNEW-IV).GT.IOO) GO TO 20 



20 IH=IHNEW $ IV=IVNEW 



SECTION 4 



DO 10 I = 1, 4 
N = 2 ** (1-1) 
10 CALL GIMASK (NCON, 0, N, N) 
CALL GIMASK (NCON, 0, 16, 14) 



CALL GIDISP (NCON, IBUF, NBYTE, IDDAD, 2) 



as b) in problem 11 with 
CALL GIMASK (NCON, 0, 16, 14) 



CALL GIDISP (NCON, IBUF, NBYTE, IDDAD, 2) 



2. CALL GICNJB (NCON) 
CALL GICLR (NCON) 
CALL GICNRL (NCON) 
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3. CALL GIFID (NCON, IDDT, IDDC, IDWA, IDWB, IH, IV) 

4. CALL GIFSID (NCON, 1, IDDT, IDDC, IDWA, IDWB, IH, IV) 

5. DIMENSION IDDT (16), IDDC (16), IDWA (16), IDWB (16) 
N=16 

CALL GIBUT (0, NCON, IDDT) 

CALL GIFID (NCON, IDDTP, IDDCP, IDWAP, IDWBP) 

IF (IDDTP. NE. IDDTP) CALL USEP 

CALL GIFSID (NCON, N, IDDT, IDDC, IDWA, IDWB) 

IF (N. NE.O.AND.IDDT(l).NE.O) CALL USES 

SECTION 5 

1. CALL GFONTA (NCON, 600, 600, ID1, ID2, ID3) 



CALL GIERAS (ID1, ID2, ID3) 



CALL GULINE (750, 750, 1000, 1000, AX, AY, BX, BY, 
1 KSHOW, IH1, IV1, IH2, IV2) 



H1=IH(1) $H2=IH(2) $V1=IV(1) $V2=IV(2) 

CALL GULINE (0. 0, 1434, 1434, HI, VI, H2, V2, KSHOW, 
1 IH1, IV(1), IH(2), IV(2) 

IF (KSHOW. EQ.O) GO TO 100 

CALL GURSET (lH(l), IV(l), 3, IBUF, NBYTE, MBYTE) 

CALL GUSEGS (IH(1), IV(1), IH(2), IV(2), IBEAM, 
1 ISTYLE, IBUF, NBYTE, MBYTE) 

CALL GIDISP (NCON, IBUF, NBYTE, IDDAD, l) 



(5O0. + 500) 



(IOOO,t500) 



100 CONTINUE 



DIMENSION IH1(5), IH2(5), IV1(5), IV2(5) 

HC=IHCNTR $VC=IVCNTR $H1=H2=IRAD+IHCNTR $V1=V2=IVCNTR 

CALL GUARC (0, 0, 1434, 1434, HC, VC, HI, VI, H2, V2, 
1 KSHOW, IHC, IVC, IH1, I VI, IH2, IV2) 

IF (KSHOW. EQ.O) GO TO 100 

CALL GURSET (IH1(1), IV1(1), 3, IBUF, NBYTE, MBYTE) 

CALL GUARCG (KSHOW, IHC, IVC, IH1, IV1, IH2, IV2, 
1 ISTYLE, IBUF, NBYTE, MBYTE) 

CALL GIDISP (NCON, IBUF, NBYTE, IDDAD, 1) 



CALL GUARC (750, 750, 1000, 1000, 0, 0, HI, VI, H2, 
1 V2, KSHOW, IHC, IVC, IH1, I VI, IH2, IV2) 



»«*»«' 



:.) 
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CALL GIEOM (NCON, 1R; , 8, 66) 
N=10 
1000 CALL GIANS (NCON, N, -1000, 700) 
1100 CALL GIBUT (0, NCON, IDDT, IDDT) 
IF(IDDC.NE.66) GO TO 1100 
CALL GIANE (NCON, N, IBCD) 
C IBCD(l) CONTAINS 1-9 LEFT JUSTIFIED HOLLERITH 
1 CHARACTERS 
IF(N.EQ.l) GO TO 1000 



CALL GURSET (-35, 0, 103B, IBUF, NBYTE, MBYTE) 
CALL GUAN (IBCD, N, IBUF, NBYTE, MBYTE) 
CALL GIDISP (NCON, IBUF, NBYTE, IDAD, 2) 



9. CALL GIKYBD(1, 2, 125) 



10. CALL AETSKC(4LCUBE) 

or 
CALL AETSKC(4HCUBE) 
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DISPLAY GRID WORKSHEET 



The following pages contain blank 274 display grid coordinate figures, for use in laying out 
screen displays. 
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IGS DISPLAY GRID 
WORK SHEET 



Program Name 
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INDEX 



Absolute coordinates 2-12, 2-14 

CLEAR button 5-2 

COMMON A-21, A-23, C-3, C-4 

Describing line segments 2-6 
Method I 2-6 
Method II 2-6 
Method III 2-7 
Method IV 2-7 

dgus 2-1, 2-3, 2-4, 2-6 

DISPLAY A-l, A-2 

Display grid 1-5, 2-1, 2-2 

Cartesian coordinates 1-5 
Organization 2-1, 2-2 
Working surface 2-2, 2-3 
Control surface 2-2, 2-3 
Character size 2-3 

Drifting circle 3-1 through 3-8 

ERASE A-16, A-17, A-23 

FORTRAN 1-1 

FORTRAN RUN to 

FORTRAN Extended 5-11, 5-12 

FTN job 5-11 

Graphics console 1-2 
Controls 1-2 
Keyboards 1-2, 1-3, 1-4 
Light-pen 1-2, 1-3 
Light-registers 1-4 
Light-buttons 1-4 

Graphics display item 1-3 

Ignore item 2-3 

IH 2-7, 2-8, 3-5, D-l 

IMPORT 1-1 

IR D-l 



IV 2-7, 2-8, 3-5, D-2 

KCB job 5-11 

Macro 3-2 

MAD 3-2, 3-3, A-7, A-15, D-2 

MAIN A-14, A-15 

MENU 4-1 

APPETIZER 4-1, 4-2, 4-8 

ENTREE 4-1, 4-2, 4-8 

DRINK 4-1, 4-2 

DESSERT 4-1, 4-2 

Listing 4-10 through 4-13 

NEXT ORDER 4-1, 4-2, 4-6, 4-8 

MSOS 1-1 

N 2-7, 2-8 

NC 3-8, C-l, D-2 

OBJECT file 5-11 

Picking 1-3, 1-4, 3-3 

PROGRAM CREATE 4-10, 5-11 

Relative coordinates 2-12, 2-13, 2-14 

REPEAT 3-1, 3-6 

RUN 5-11, 5-12 

SCISSORING 5-1 through 5-8 
Listing 5-9, 5-10, 5-11 

SCR file 5-11 

Single pick items 2-4 

SOURCE file 5-11 

STAR OF DAVID A-ll, A-61 

String pick items 2-4 
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Subroutines 

ADDT 2-8, 

AELBUT 2-21 

AETSKR 2-9, 3-10, A-2, A-23, C2 

CHECK A-22 

CIRCLE 2-14, A-16, A-17 

CIRCUIT A-20 

COMMON C-4 

COPY 2-14, A-43 

CRL A-16 

CRKT A-21 

DECODE A-38, C-2 

DELCOMP A-23 

DMDMP B-l 

DMGET A-22 

DMGTBB A-22 

DMSET A-23 

ENCODE 2-9, 3-2, A-2, A-6, 

A-38, C-2 
ERAS A-23 
ERRMESS A-22 
EXIT 3-8 
FONT 5-4 
FORMAT A-2, A-6 
GETBEAD A-22, A-23 
GFONTA 5-4, A- 8 
GFONTN A- 8 
GIABRT 3-8, A-20 
GIANE 5-6, A-9, C-l 
GIANS A-9 

GIBUT 3-4, 3-10, 5-6, A-16, D-l 
GICLR 3-4 
GICNJB 3-9, A-15 
GICNRL 3-8, 5-9, A-16 
GICOPY 2-12, A-7 
GIDISP 2-8, 2-11, 3-2, 3-3, 3-8, 
4-2, 4-6, 5-8, A- 1 through A-5, 
A-7, A-10, A-16, A-17, A-21, 
A-22 
GIERAS 4-8, A-8, A-17 
GIFID 4-8, A-22 
GIFSID 4-8, A-3, A-6 
GILPKY 3-4, 3-5, 3-6 
GIMAC 3-2, 3-3, A-7, A-15 
GIMACE A-8 

GIMASK 3-9, A-2, A-15, D-l 
GIMOVE 2-12, 4-7, A-2, A-3, A-7 
GITCOF 2-12, 3-5, A-15, A-16 
GITCON 2-12, 3-3 
GPSL C-4 
GUAN 3-8, 4-2, 4-6, 5-8, A-l, 

A-6, A-10 
GUARC 5-3, A -4 

GUARCG 2-10, 3-2, 3-3, A-4, A-15 
GUBYTE A-8 
GULINE 5-3, A-3 
GUMACQ A-15, A-16, A-22 
GURSET 2-5, 2-7, 2-12, 2-13, 3-2, 
3-3, 3-8, 4-2, 4-6, 5-8, A-l, 
A-3, A-6, A-9, A-22 



GUSEG 2-7, 2-13, A-5 

GUSEGA 2-7, 2-8, 2-13, A-5 

GUSEGI 2-7, 2-13 

GUSEGS 2-6, 2-7, 2-13, A-3 

IALF C-l 

IBCD 2-9, A-6 

EBDB A-23 

IBEAM 2-6, 2-7, 2-8, D-l 

IBYTE A-8 

IBUF 2-5, 2-7, 5-6, A-l, A-4, A-10, 

A-15, A-16, D-l 
ICOD A-21, A-22, A-23 
ICODE 2-5, 3-10, A-7, A-9, D-l 
IDDA 5-4 
IDDC 4-8, A-l, A-7, A-10, A-21, 

A-22, D-l 
IDDN 5-4 
IDDTC 3-9 
IDDTS 3-9 
IDDAD 2-8, 3-4, 3-6, 4-7, 5-4, 5-6, 

A-2, A-10, D-l 
IDDADI 3-6 

IDDT 2-4, 2-8, 3-2, 3-4, 3-9, 3-10, 
4-7, 4-8, A-l, A-7, A-10, A-21, 
A-22 D-l 
IDWA 2-9, 3-4, 4-8, A-3, A-7, A-10, 

A-17, A-21, A-22, C-2 
IDWB 2-9, 3-4, 4-8, A-3, A-7, A-10, 

C-2 
IHCEN 5-3 
IHCOR 5-3 
IMAKE A-23 
ISTATEV A-23 
ISTYLE 2-6, 3-6, D-l 
ITEM 3-4, 3-6 
IVCEN 5-3 
IVCOR 5-3 

KSHOW 2-10, 5-3, 5-4, A-3, A-4 
LINE 2-14, A-16, A-17 
MAKE A-21, A-22, A-23 
MAYBE A-22 
MBYTE 2-5, 5-8, D-2 
MCIRC 3-3 
MOVE 2-14, A- 42 

NBYTE 2-5, 2-11, 5-8, A-l, A-16, D-2 
NCON 2-4, 2-8, A-15, A-51, C-l, D-2 
NMAKE A-23 
NOPE A-23 
ONE C-4, C-5 
ONEONE C-4, C-5 
SCHNDHV A-23 
SIO$ C-5 
SUBB C-4 
SYSTEM C-5 
USEFUL C-4, C-5 
ZERO C-4, C-5 

Tracking 1-3, 1-4, 3-3 

Winding road 2-1, 2-3, 2-4, 2-6 
through 2-11 
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